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sn A) ACCÉLÉRATEUR 

LL Gagnez 360 Hde vitesse 
d'exécution des calculs et des graphiques 
sur tous les programmes. Une simple 
opération. Mettez la carte dans le 
connecteur et votre APPLE Il etlle 
passent à la vitesse supérieure. 





AN MÉMOCARTE 

Gagnez de la vitesse en accès 
disque en simulant un disque ultra- 
rapide sur les nouvelles mémocartes 
géantes, extensible de 64 K à 512K. 

Les mémocartes s'utilisent aussi en 
extension de mémoire centrale pour 
Visicalc,Magicalc, etc. 





Gagnez du temps en libérant 
votre APPLE pendant l'impression. 
Microbuffer (de 16 K à 256 K) prend en 
charge instantanément toutes vos 
données et les envoie à l'imprimante, 
au fur et à mesure de ses besoins. 
Ainsi votre APPLE est immédiatement 
à votre disposition. 













mil 


je 
LATE 


)ULTRATERM 


Gagnez du temps de travail sur 





les calcs et les textes en obtenant grâce 


à Ultraterm une vision panoramique, / 


jusqu'à 48 lignes ou 160 colonnes / 


à volonté. 


Grâce à une large gamme de pénphériques et de programme d'avant-garde 
importés et distribués par BIP, vous pouvez mamtenant multiplier les possibilités 
de votre APPLE. Demandezles à votre revendeur. 
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3 LIVRES ET LEUR DISQUETTE 
POUR VOTRE APPLE 


r Apple I}, Il plus et /e DOS 3.3, version 48 K ou plus 






Vous avez acheté le livre “La comptabilité sur Apple Il” de Serge et Gérard Llillio, et vous n'avez 
pas le temps nécessaire pour taper vous-même les programmes sur votre Apple. Dans ce cäs, 
cette disquette vous est tout particulièrement destinée! 

L'ensemble des pregrammes présentés ici constitue la réplique exacte des listings proposés 
dans l'ouvrage, à l'exception des ordres pour imprimante. 

Cette disquette doit être considérée comme une aide au lecteur et non comme un progiciel de 
comptabilité. Ainsi, les trois exemples de libellés cités en annexe dans le livre et ci-inclus, 
doivent être envisagés en tant que points de départ pour une utilisation plus personnelle. 
La disquette seule : 185,00FF/1425,00FB 


Lelivre décritun ensemble de programmes de comptakilité générale en Basic pour petites entreprises, professions libé- 
raies, artisans, commercants. Avec édition des livres-journal, grands livres, balances. bilans. Avec calcul des ratios. Pro- 
gramme spécial intétessant l'adaptation et la personnalisation du plan comptable. Et. quelques “ficelles” pour Applell. 


Le livre seul: 102,00FF / 785,00FB 


Voici une disquette qui permet aux lecteurs de “Visicalc sur Apple” d'accéderdirectement à tous 

les tableaux Visicalc présentés dans le livre. Ils trouveront sur cette disquette la réplique exacte | VISICALC 

des tbleaux présentés dans l'ouvrage. S'y ajoute un programme en Basic permettant l'impres- | SUR APPLE A 

D Le formules d'un tableau, sur une ou deux colonnes, dans l'ordre de Af vers le bas à droite nana PT 
u tableau. tas 

Attention : cette disquette ne peut être utilisée sans la disquette maitresse Visicalc. “HÉRVE 

La disquette seule : 185,00FF/1425,00FB THIRIEZ 


Après une présentation progressise du modèle Visicalc, l'ouvrage présente un ensemble d'exemples d'appliatiens, 
échéancier de remboursement, feuille d'impét, gestion de copropriété, paye, facturation. ., permetiant d'introduireles 
différentes instructions et astuces d'utilisation. 


Le livre seul: 82,00FF / 635,00FB 


HERVÉ HAUS 
| Î Vous avez acheté le livre “Mathématiques et statistiques”, et vous n'avez pas le temps de taper 


vous-même les programmes sur votre Apple ? Alors cette disquette vous est tout particuliére- 
ment destinée ! 

L'ensemble des programmes présentés ici constitue ja réplique exacte des listings proposés 
dans l'ouvrage. 

Cette disquette doit être considérée comme une aide au lecteur et non comme un progiciel de 
mathématiques. 

La disquette seule : 185,00FF /1425,00FB 


Le livre décritun ensemble de programmes en Basic de mathématiques et destatistiques, niveau supérieur. Chaque pro- 
blème traité comporte une introduction numérique, un exposé de la technique de programmation utilisée, un organi- 
gramme détaillé et un programme complet suivi d'un exemple d'utilisation. Les programmes sont struclurés de manière 
à permettre une insetion dans des programmes plus importants. 


Le livre seul: 92,00FF / 710,00 FB 
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Editorial 


Pour son neuvième numéro, Porn's passe de 68 à 76 pages. Le prix de la revue augmente aussi, 
passant de 35 à 40 francs le numéro, ce qui fait 14% d'augmentation en deux ans. Pendant ce temps, 
nos frais postaux ont augmenté de plus de 30% et le papier de plus de 50%; comme vous pouvez le 
constater, nous continuons à nous efforcer de vous donner le meilleur rapport perfonnance/prix. Dans le 
courant de l’année prochaine, nous passerons à une fréquence de parution bimestrielle. 


Comme preuve de la reconnaissance croissante de Pom’s par ses pairs, nous avons le plaisir de vous 
annoncer qu’Apple Orchard, l'une des principales revues américaines pour Appleomanes, va publier des 
articles parus dans Pom’s. Que diront les lecteurs qui nous accusent pæois (à tort) de copier les revues 
américaines ? 


De nombreux articles qui nous sont proposés ces temps-ci réutilisent des programmes déjà publiés dans 
Porm's. Cela nous pose un problème : nous ne pouvons à ces occasions republier les programmes ou 
parties de programmes concemées si elles sont top longues. Sinon, on finirait par se cioire en lisant 
Pom's comme devant la télé, où ies mêmes fiims repassent régulièrement … Nous avons par conséquent 
décidé, pour éviter de trop fréquentes redondances, de nous limiter à citer l'origine des programmes 
antérieurement publiés, quand ils sont utilisés dans un nouvel article. 


Certains lecteurs ont vu arriver chez eux des Pom’s avec une disquette d'accompagnement écrasée par 
des “chargas postales excessives”. Avant de nous renvoyer ces disquettes, vous pouvez découper l’enve- 
loppe et mettre la disquette “toute nue” dans le lecteur; en effet, l'enveloppe n'est qu'une protection, et 
l’on peut s’en passer. Ce petit remède nous évitera, aux uns comme aux autres, de perdre du temps, et 
Ü permet presque toujours de récupérer les informations grâce à une copie sur une autre disquette 
(habillée cette fois !}. 


Dans ce nouveau numéro, vous touverez encore plein de programmes : une fois de plus, la disquette 
d'accompagnement est pleine à craquer. Gérard Hisleur vous propose un programme de traitement de 
texte en BASIC, qui présente un intérêt à la fois pratique et pédagogique. Michel Lafon propose un 
programme en Pascal de saisie de données en plusieurs pages, avec une présentation de type Visicalc. 
Joël Lecoeur vous offre un jeu original, transformant une image graphique haute résolution en puæle 
que vous devez reconstituer. 


Denis Sureau montre comment fusionner deux shapes puis, dans un autre programme, crée un ordre 
d'impression très évolué pour l'écriture de longues chaînes. Dans le domaine du graphique, Jacques 
Duma propose un éditeur graphique haute résolution, concurrençant amicalement l’éditeur du Pilot 
Thierry Le Tallec désassemble la PROM P5A, un bel exercice de stvle qu’apprécieront les spécialistes. 
f nous donne aussi un programme très original permettant d'imprimer une page haute résolution avec 
une imprimante non graphique ! 


Encore une contribution importante de Gérard Michel, avec un exemple complet de gestion de fichier F2 
directement par RWTS. Olivier Herz , quant à lui, ne s’est pas endormi sur ses lauriers : id propose une | 
comparaison des Opcodes des principaux assembleurs, et un programme bien sympathique permettant 

de mettre dans un tableau le catalogue d’une disquette. Vous pouvez facilement l'adapter pour imprimer 

vos catalogues en deux ou trois colonnes, ou l’enrichir pour gérer le fichier de toutes vos disquettes. 


Enfin, d’autres contributions qui, pour être plus courtes, n'en sont pas moins intéressantes. Jean-F. : 
Schwartz nous aide à lire les fichiers TEXT, Erick Ringot nous apprend à faire de beaux listing et 

Th. Charlier de Chily améliore le programme de fondu enchaîné de Denis Sureau. Pour ma part, je 

montre comment envoyer des caractères spécioux à votre imprimante, et j'analyse pour vous le pro- 

gramme Magicalc. Sean-François Duvivier tient toujours avec maestria la rubrique des nouveautés, 

Alexandre Duback /a bibliographie et Olivier Herz le couriier des lecteurs. Avec tout cela, si vous 

avez encore faim, dites-le nous … 


Nous vous avions annoncé notre intention de parler de communication. Nous y pensons toujours, mais 
ce numéro est déjà plein à craquer, nous n'avons plus assez de place. Ce n’est que partie remise. Pom's 
innove depuis le numéro 8 : tous nos textes sont préparés en traitement de texte sur Apple, recodés à 
l’aide d'un programme de conversion et d’enrichissement de texte écrit par Logma, et transmis à l’ordi- 
nateur de composition de Télécompo grâce à la carte super série et au Modem Telsat 640 de Satelcom. 
Voici une application intéressante de la communication ! 


Hervé Thiriez 
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ETIENNE 
Porm's n° 9 : 


UN DOCUMENT 
ESSENTIEL 


AUIDX 334 


L'ORDINATEUR 
INDIVIDUEL 


AU SOMMAIRE 


e Panerama des ordinateurs valant 
jusqu'à 60 000 F (200 matériels) 


e Tableau récapitulatif de tous les OI. 
dans plusieurs configurations 


e Pariorama des imprimantes pour 


ordinateur individuel (plus de 100 matériels) 
e Réactualisation de bancs d'essai 
de 50 matériels parus dans L'O. 


e Revue des bancs d'essai de 52 logiciels 
parus dans L'O.. depuis le n° 34 

e Annuaire des fournisseurs et des clubs : 
plus de 1500 adresses 

e Le point sur les nouveautés Barues 
depuis l’été 82 


e Dictionnaire de l'informatique individuelle 
e Et une série d'articles pour vous “guider” 
sur le chemin de votre informatisation 
individuelle 


à partir 
du 12 septembre 1983 
35 FF 
chez votre marchand 
de journaux 


Pour recevoir, chez vous le 

Guide 83:84 dès sa parutien, il vous 

suffit d'envoyer vos nom et adresse 

ainsi qu'un chèque de 35FF à 
L'ORDINATEUR INDIVIDUEL {GUIDE 83-84) 
39, rue de la Grange-auxBeiles 
75484 Pans Cedex 18 





Une réduction de 5FF est acc@rdée aux abonnés 
sur envoi de là dernière étiquette d'expédition 


Thierry Le Tallec 


Ce programme constituera, je l'es- 
père, un précieux utilitaire pour ceux 
d'entre vous qui, ne possédant pas 
d'imprimante graphique, se sont vus 
privés jusqu’à ce jour de la possibilité 
d'obtenir des copies papier” de 
leurs graphiques Haute Résolution 
préférés. Il pennet en effet de reco- 
pier un écran Haute Résolution sur 
une imprimante NON graphique, à la 
seule condition qu'elle puisse écrire 


291 


en mode “compressé”. 


Les commentaires donnés en regard 
du programme-source en assembleur 
fournissent les renseignements néces- 
saires en ce qui concerne la démar- 
che adoptée. 


Copie basse 


résolution 


d'écran HGR 


Le code-objet est implanté en mé- 
moire au début du programme en 
Applesoft GRAFTEXT {lignes 10 à 
60), dont l'exécution est seule re- 
quise pour obtenir la copie souhai- 
tée. 


À noter que le nom des pages HGR 
à copier doit se terminer par ”.PIC" 
pour que le programme puisse les 
charger. Ainsi, pour copier le graphi- 
que DESSIN, il faut le baptiser DES- 
SIN.PIC et fournir le nom DESSIN 
en réponse au programme. 


Le processus d'utilisation du pro- 
gramme est le suivant : 


e Mettre la disquette où se trouve le 
graphique dans le lecteur ”’actif”. 


e Demander le CATALOG. 


®e Donner le nom du graphique à 
charger, appuyer sur une touche 
lorsque celui-ci est affiché pour re- 
venir au menu. 


e Demander la copie. 


Notez enfin que sur le graphique re- 
copié, les points de la gauche de 
l'écran sortent en haut du papier et 
ceux de la droite en bas. N'oubliez 
donc pas de faire une rotation de 90 
degrés pour obtenir un maximum de 
ressemblance avec l'original ! 
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100 HOME : VTAB 1: INVERSE : PRINT “ << GR - 

Programme GRAFTEXT AFTEXT 3> “: PRINT * GROSSIERS SOFTW 1 

ARE “: NORMAL : VTAB 1: HTAB 26: PRINT 
1 P$ = CHRS (27) + CHRS (56) r CHRS (27) + “(C)1982 -- TOUS":: HTAB 26: PRINT ‘D ; 
CHRS (66) + CHRS (29): REM MODE CO ROITS RESERVES“: POKE 34,2 : 
MPRIME SUR MICROLINE 80 CA MODIFIER SE | 110 VTAB 7: HTAB 10: PRINT “? - VOIR LA PAGE 
LON VOTRE IMPRIMANTE) 1“: PRINT : HTAB 10: PRINT “2 - VOIR | 

10 GOSUB 100:G = 49232:TX = G + 1:FS - G + 2 LA PAGE 2": PRINT : HTAB 10: PRINT ‘C É- 
iP1 = G + 4:P2 = G + S:HR = G + 7: POK - CATALOGUE": PRINT : HTAB 10: PRINT " H = 
E FS,0: ONERR GOTO 300 R - RECOPIE SUR IMPRIMANTE": PRINT : H à 

20 DS = CHRS (4):GT = 768: FOR A = GT TO GT D pe Nr CO Di pren “1 
+ 182: READ D: POKE A,D: NEXT 120 VTAB 20: HTAB 1: PRINT "VOTRE CHOIX :": 

30 DATA 169,0,133,2,133,3,169,70,133,1,169,9 | {90 RETURN 
6,133,6,169,191,133,4,169,0,133,5,162, | 200 VTAB 23: HTAB 1: PRINT "CN)ORMAL OU CIDN 
2169,4,133,7,32,116,3,144,2,230,5,230 VERSE ?"“;: GET AS: ON CAS € > "N" AND 
,2,208,2,230,3,198,7,208;:239,198,4,56, AS < > I") GOTO 200: POKE 0,0: IF À 
165,2 S = “l* THEN POKE 0,255 

Aÿ, DATA 239:4:192,2,168,32923/0;129,3.202,20n |" Un 
8,217,166,5,189,107,3,32,237,253,198,6 | 360 y - PEEK (222): POKE TX,0: POKE P1,0: PR 
,208,199,32,142,253,173,0,192,48.17,16 RE eye SAC MEN ET AS CDR TT NE 
5,2,24,105,4,133,2,165,3,105,0,133,3,1 NE LA TROUVE PAS":2 NORMAL 
38,1,208,166 310 PRINT CHRS (7): IF Y = 8 THEN FLASH : 

50 DATA 32,47,251,44,16,192,96,160,174,172,1 PRINT “1/0 ERROR" 
86,201,171,216,170,163,138,72,165,4,72 | 330 WAIT 49152,128: POKE 49168,0: PRINT : GO 
,41:192,133,224,74,74,5,224,133,224,10 Do 
4,133,225,10,10,10,38,225,10,38,225,10 
,102,224,165,225,41,31,5S — 

60 DATA 230,133,225,165,2,164,3,192,0,240,5, LR M RTE 
160,35,105,4,200,233,7,176,251,170,177 
,224,69,0,10,10,232,208,252,104,170,96 2 * Li 

70 GET AS: IF AS = "2" THEN POKE HR,0: POKE 3 + GRAF TEXT + Bi 
G,0: POKE P2,0: GET AS: POKE TX,0: PO Aa : 1g 
KE P1,0: POKE 230,64:AS = “" 

75 IF AS = "C"“ THEN PRINT AS: PRINT DS*CATA D RFSEREE HERMANN Mac 
LOG“: PRINT : INVERSE : PRINT “NOM DE 6 
L'IMAGE A CHARGER";: NORMAL : INPUT " ee FRERE 
NS: IF NS © > “* THEN PRINT DS“BL 7 # Recopie ÿ écran haute résoiution 
OAD“:NS:".PIC,AS2000":AS = “1* 8 # sur 1rprinante NON graphioue 

80 IF AS = 1" THEN POKE HR,0: POKE G,0: GE 9 # _ 

T AS: POKE TX,0: POKE 230,32:AS = “* 10 

85 IF AS = ‘“*R“ THEN GOSUB 200: POK€ HR,0: P GRAFTEX contient (lignes 
OKE P1 + ( PEEK (230) = 64),0: POKE G, | il # 05/11/82 20 à 60) le code binaire de 
O: PRINT : PRINT DS"PR#1": PRINT Ps: C | 12 GRAFTEXT.S 
ALL GT: PRINT DS"PR#O":AS = 13 

90 IF AS € > "Q” THEN GOSUB 100: GOTO 70 

99 HTAB 1: FOR I = 23 TO 1 STEP - 1: VTAB 1 | 4 OURS $300 ;call 768 
PR NT Mi amsn ae re ob co DOTS 
soessssse.."st NEXT : TEXT : FOR I = 1 re | re 
TO 23: VTAB I: PRINT SPC( 40): NEXT 18 HMASK  EQU 600 :#00=négatif, $FF=positif 
: END 17 LINES  EQU $01 Compteur de lignes (0-83) 
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18 XCDDRDL EQU $02 coordonnée horizontale 
19 XCOORDH EGU $03 
20 YCOORD EQU $04 scoordonnée verticale 
21 CELL EQU 595 ‘caractère graphique OKI 
22 CHRRS ER $06 :coæoteur de caracteres 
23 COLUMN EQU $07 
24 HBASL  EBU $E0 *pointeur d’adresse écran 
25 HBRSH  EQU $E! 
26 HPRG EQU $E6 *$20=page 1, $40=page 2 
27 KBD EU $C000 
28 KBDSTRB EGU #$C010 
29 INIT EQU $FB# 
30 HOME EQU $FC58 
31 RDKEY  EQU $FDO 
32 CROUT  EBU $FDBE 
35 COUT EQU $FDED 
34 
3 + Affiche 70 lignes de 96 colonnes 
3 
37 LDA % “analyse Îes cotsnnes & - 279 
38 STA XCGORD 
39 STA XCOORDH 
w LDA £70 “compteur de lignes = 79 
àl STA LINES 
42 SCANCOL LDA 4% *coapteur de caractères = 9% 
4 STA CHARS 
CTA LA 4191 analyse l’ écran de bas en haut 
45 STA  YCCORD 
46 BOX LDA &0 raz coëpteur points/cases 
87 STA CELL 
- 48 LDX #2 “analyse des “cases” de 2x4 
_ &9 NXTEOL LDA £4 
2) 90 STA CHLPN 
+ 51 BOX JSR HPOSN  :teste si point allu#é 
HU © BCC BOX2 
ci 5 INC CEL *coapte si oui 
9 34 BOX2 INC XCOORDE 
“1 59 BNE BOXS 
: 56 INC XCODRDH : (incrémente 16 bits) 
si 57 BOXS DEC CüLUMN 
3 58 BNE BOX spoint suivant 
59 DEC YCOORO  ;ou rangée suivante 
6 SEC 
bi LOA  XCOURD. 
62 SBC £é 
63 STA  XCOCRD- 
6k LDA XCOCRDA 
65 SBC £0 {soustraction 16 bits) 
66 STA  XCOGRDH 
67 DEX 
68 BNE NXTCQL 
69 NXTBGX LDX CELL prend le noabre de points 
70 LDR TABLE, X 
7 JSR COUT “sort ie cractère correspondant 
72 DEC CHARS 
T3 BNE BOX ‘case suivante si pas fini 
7h NEXTLIN JSR CROUT 
75 LDR KBD 
76 BMI END sfin si clavier appuyé 
77 LDA XCOORA. 
A CENENEEEN EEE 
8 


128 
125 
126 
127 
128 
129 
130 
151 
132 
133 
134 
135 
156 
137 


END 


TABLE 


& 

XCOORDL 

XCOCREU 

£0 : (addition 16 bits) 
XCOOREH 
LINES 
SCANCOL colonne suivante si pas fini 
INIT 
KBDSTRB 


*rode texte 


M ,,:14+X#€" 


# teste l'écran HR, Revient avec carry=f st point al!lusé 


HPOSN 


HPGSNI] 
UNE 


FIGHRE 


TXA 
PH 
LER 
Pia 
RND 


YEOGRD  :YCOCRD=abcd efgh 
*sauvegarde coordonnée verticale 
£$C0 
HBESL #HBASL=ab00 0900 
HBASL 
HBASL  :HBASL=abab 0900 
“récupère coordonnée verticale 
HBASH  :HBASH=abcd efah 
: bcde fgh0 
* A=cdef gh00 
* Adefg n090 
HBRSH  :HBASH=hcce fghe 
: Aefgh 0000 
HBASH  :HBASH=cdef ghcd 
: A=fgh0 0000 
HBASL :HBASi-eaba h000 
HBASH 
£$1F : f=000f gncd 
HPAG 
HBASH *HBASH=pppf ghcd 
XCDDRDL :divise XCOORB par 7 
XCOORDH :iquotient=rarg de l’octet 
2500 * reste=rang du bit dans l’cctet 
HPCSN2 
£$23 
£$04 
£$07 
HPOSN1 
“Sauvegarde rang du bit 
(HBASL),Y :charge l'octet dans A 


HRASK *{norsal ou inverse) 
‘décale le bit dans la carry 
jusqu’au rang indique par X 
FIGURE 
“récupère X 
OFF 
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Que serait la micro-informatique au- 
jourd'hui sans Visicalc ? Il est à pré- 
sent inconcevable d'acquérir un 
micro-ordinateur qui ne soit pas 
équipé d’un “tableur”, qu'il s'agisse 
de Visicalc, Supercalc, Spreadsheet, 
Multiplan ou un autre. A cette longue 
série vient de s'ajouter Magicalc, pro- 
duit par ARTSCIÏ à qui nous devons 
un programme de traitement de texte 
déjà célèbre, Magic Window. 


The Spreadsheet 


Certains d’entre vous ont entendu 
parler de ”’The Spreadsheet”, ce ta- 
bleur vendu antérieurement pour 
moins de $30 par CALL A.PP.LE. 
à ses adhérents, compatible avec Vi- 
sicalc, et possédant par rapport à ce 
dernier des possibilités supplémentai- 
res. Ce programme a été suivi de 
"Spreadsheet 2”, lui aussi vendu à 
un prix imbattable ; ce programme 
est parfait, à une exception près. Il se 
trompe en effet dans certains cas lors 
de la présentation à l’écran. Il est ins- 
tructif à cet égard de voir comment 
est reproduite la valeur 99,99999 
dans les colonnes de gauche à 
droite : la valeur de 99,99999 de la 
case Al a été reproduite dans les co- 
lonnes B, C, D, E et F dont les lar- 
geurs avaient été préalablement défi- 
nies à 9 colonnes, 8, 7, 6, 5 et 4 de 
large. 


99,99999) 100, 004/ 100, 04] 100. 4 104. ! 140 


Comme vous pouvez le voir, il est 
étrange de constater que 99,99999 
devient 140 à l'écran quand la co- 
lonne est de largeur 4. D'ailleurs, si 
l'on reproduit la valeur de Al en A2, 
on obtient bien 9999999. Il suffit 
alors de modifier le fonnat de A2 par 
«/Fl» pour voir apparaître 140 ! 
Pour des raisons qu’il serait trop long 
de détnilier ici, ”’Spreadsheet 2” n’est 
plus commercialisé maintenant. 





Magicalc 


Par contre, Magicalc vient d’être 
lancé sur le marché, distribué en 
France par BIP avec une documenta- 
tion en anglais et une notice expli- 
quant en français, à ceux qui 
connaissent déjà Visicalc, le mode 
d'emploi des nouvelles possibilités de 
Magicalc. La documentation en an- 
glais est présentée comme celle de 
Visicalc, y compris un dépliant car- 
tonné servant d’'aide-mémoire, ce qui 
est toujours bien pratique et dont de- 
vraient s'inspirer tous les auteurs de 
progiciels. 
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La magie de Magicalc 


Au niveau des possibilités, on re- 
trouve ”’Spreadsheet 2” à quelques 
petits détails près; entre autres, le 
bug décrit ci-dessus est enfin corrigé. 
En quelques mots, Magjicalc a tous 
les moyens du Visicalc 16 secteurs 
(DOS 3.3), plus les suivants : 


e utilisation des quatre touches de 
déplacement (sur le //e) 

e colonnes de largeurs différentes 

e colonnes invisibles 

® reconnaissance de cartes d’exten- 
sion mémoire 

® reconnaissance de cartes 80 co- 

lonnes 

protection possible des cases 

reproduction de fonnats et d’attri- 

buts 

compatibilité avec les disques durs 

fonctions supplémentaires 

lecture/écriture plus flexible 

impressions améliorées. 


En fait, Magicalc possède la moitié 
des possibilités de Visicalc Advanced 
Version que n’a pas la version stan- 
dard de Visicalc, ie tout à un prix 
tout à fait abordable puisque Magi- 
calc coûte seulement 2.040 F HT. 
Visicalc Advanced Version est at- 
tendu, mais pas encore disponible 
sur Apple //e; on ne le trouve en ce 
moment que sur Apple ///, et à un 
prix sensiblement supérieur à celui 
de la version nonnale. 


Visicalc Advanced 
Version 


Les avantages de Visicalc Advanced 
Version que ne partage pas le pro- 
gramme Magicalc sont les suivants : 


© la capacité de mémotiser des chaî- 
nes d'instructions 


e une série de fonctions financières 


e des fonctions de mesure du temps 
{date, heure, ..) 


e des formats beaucoup plus variés. 


Mais, après tout, au prix où se vend 
Magicalc, on peut encore dans beau- 
coup de cas se passer de ces particu- 
larités supplémentaires. 


Les ”’plus” de Magicalc 


Commentons maintenant en détail 
les ”plus” de Maglcalc présentés plus 
haut de façon synthétique. Notre but 
n'est pas d’être exhaustif, mais d’il- 
lustrer les traits essentiels de ce nou- 
veau tableur. 


PTTPLSELETIT 17: 2 
n»r2S2+ zs.dstaems 


Hervé Thiriez 


Utilisation du clavier 


Le déplacement dans les quatre di- 
rections à païtir d’une case s'effectue 
grâce aux touches (Q, S, Z et A) en 
mode CTRL. Le même effet s’ob- 
tient avec les flèches, y compris les 
flèches verticales sur l'Apple //e. 


Les touches CTRL-W et CTRL-X 
provoquent la montée et la descente 
de 12 lignes. CTRL-E place en haut 
à gauche de la feuille utilisée, et 
CTRL-C en bas à droite. C’est là le 
seul problème de compatibilité que 
j'ai eu: j'ai l'habitude d'utiliser fré- 
quemment CTRL-C pour interrom- 
pre une opération en cours avec Visi- 
calc, ce qui, avec Magical, valide 
l'opération en cours et déplace le 
curseur … 


Largeur des colonnes 


La largeur de chaque colonne peut 
varier indépendamment, ainsi, la lar- 
geur O permet d'éliminer une co- 
lonne lors de l'impression de façon 
particulièrement élégante. On revient 
à une colonne de largeur O par un 
GOTO direct avec le signe ”>”. Il 
n'est plus indispensable d'écrire des 
titres sur plusieurs colonnes, comme 
Visicalc nous y force régulièrement. 
Enfin, une colonne de largeur 1, 
avec le signe ”!” comme contenu, 
fournit une séparation verticale bien 
agréable. 


Cartes d'extension mémoire 


Magicalc reconnait automatiquement 
la plupart des cartes d'extension mé- 
moire; à l'extrême, on peut s'amuser 
avec des tableaux utilisant 512K de 
mémoire, si l’on a quatre cartes Le- 
gend 128K … 


Par contre, et cela est bien triste, la 
carte 80 colonnes étendue de l’Ap- 
ple //e n’est pas reconnue en tant 
qu'extension mémoire, mais seule- 
ment en tant que carte 80 colonnes. 
Pour utiliser Magicalc avec plus de 
64K machine (ce qui fait 30K utilisa- 
teur), il faut donc avoir une carte 
d'extension mémoire qu'’if reconnait. 


NDER : nous venons d’être avertis 
par BIP que les versions récentes de 
Magicalc reconnaissent maintenant 
complètement la carte 80 colonnes 
étendue. 


RE | 
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Cartes 80 colonnes 


Un menu de configuration vous per- 
met de définir au programme l’équi- 
pement que vous utilisez, il suffit de 
répondre YES ou NO aux questions : 
Lower case video, Lower case key- 
board, One-wire shift key, Printer dri- 
ver et Video diiver; il faut en outre 
indiquer, si nécessaire, le slot de l’im- 
primante (1 par défaut) et celui de la 
vidéo (0 par défaut). 


Même si vous ne possédez pas de 
carte 80 colonnes, Magicalc vous 
permet de disposer de 70 colonnes à 
l'écran; il suffit pour cela de répondre 
YES à la question Video diiver. Ceci 
dit, les caractères sont fatigants à lire, 
et la mémoire rétrécit fortement avec 
le passage en 70 colonnes : la mé- 
moire disponible avec un tableau 
vide sur un Apple 64K en 40 colon- 
nes est de 30K (on perd 4K par rap- 
port à Visicalc); en mode 70 colon- 
nes, elle n’est plus que de 18K. 


Avec un Apple //e, il m'a suffi de 
spècifier que j'avais une Lower case 
video et un Lower case keyboard, et 
de mémoriser cette configuration sur 
ma disquette fichiers. Dès que je 
lance Magicalc, je peux tout utiliser, y 
compris les 80 colonnes (reconnues 
automatiquement sur la caite Apple) 
et des libellés avec des minuscules et 
des lettres accentuées. Attention, ce- 
pendant : avec le clavier en mode 
AZERTY, il faut des touches multi- 
ples (avec le SHIFT) pour obtenir le 
slash (/) ou les chiffres. Je travaille 
par conséquent en clavier anglais, 
basculant sur le français uniquement 
au moment de définir des titres avec 
des lettres accentuées. 


Les attributs 


Comme Visicalc Advanced Version, 
Magicalc autorise la définition d’attri- 
buts dans une case ou une série de 
cases. Un attibut peut être, comme 
un format, défini localement ou glo- 
balement. Les attributs possibles 
sont : 


© D: valeur par défaut (atibut glo- 
bal) 


e À (all: accepter toute donnée, 
VALUE ou 1 ABEL 


e L (label) : toute entrée est une éti- 
quette 


e V (value): toute entrée est une 
valeur 


eo P (protect): case protégée, ne 
peut être modifiée avant d’avoir 
été déprotêgée, par exemple avec 
1 Hé 

e H (hide) : le contenu de la case 
reste utilisable par les autres cases, 


mais il est devenu invisible, à l’im- 
pression comme sur la ligne de 
contenu (quand le curseur passe 
sur la case). La ligne de contenu 
fait seulement apparaître les coor- 
données de la case et ‘/AH”, ce 
qui permet de savoir que la case a 
été protégée. 


Reproduction de formats et 
d’attributs 


Le REPLICATE fonctionne comme 
dans Visicalc avec, en plus, la possi- 
bilité de reproduire des attributs 
seuls, des formats seuls, des conte- 
nus seuls (sans format ni attribut), 
des valeurs et des étiquettes sans les 
formules, des contenus complets en- 
tièrement en NO CHANGE, ou en- 
tièrement en RELATIVE. 


Fonctions supplémentaires 


Les fonctions supplémentaires sont 
multiples; on y retrouve de nombreu- 
ses fonctions propres à Visicalc Ad- 
vanced Version ou à Multiplan : 


e COL : renvoie la valeur de la co- 
lonne de la cellule 


e ROUND(valeur, n) : arrondit la va- 
leur à n décimales. Cela nous 
évite la solution actuelle avec Visi- 
calc : INT(1000xvaleur. +5)/1000 
pour avoir par exemple un arrondi 
à trois décimales. 


e ROW: renvoie la valeur de la 
ligne de la cellule 


Lecture et écriture 


Lors de la lecture ou de la sauve- 
arde d’un fichier, Magicalc donne à 
’écran la liste des fichiers sur la dis- 
quette, ceux-ci étant numérotés sé- 
quentiellement. On sélectionne alors 
le nom ä utiliser ou le numéro cor- 
respondant Trois regrets à cet 
égard : que la liste ne se fasse pas 
sur deux colonnes, ce qui permettrait 
de voir deux fois plus de fichiers 
d’un coup. Le second regret est que 
le programme ne propose pas par 
défaut le nom du dernier fichier 
chargé : cela éviterait des erreurs de 
manipulation aux conséquences des- 
tructrices. Enfin, il serait plus prudent 
de voir le nom de fichier choisi appa- 
raître en inverse avant que l’opéra- 
tion ne soit lancée : on pourrait alors 
corriger le tir avant qu’il ne soit trop 
tard. 


ATTENTION - J'ai rencontré avec 
Magicalc un grave problème qui m'a 
fait perdre le résultat de quatre 
heures de travail, ce qui est extrême- 
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ment désagréable. Ce problème a 
été provoqué par le fait que, dans un 
menu de configuration, on spécifie si 
une sauvegarde doit être effectuée 
normalement ou en format DIF. L’in- 
convénient est que, si l’on a spécifié 
le format DIF à un moment donné 
sans signaler ensuite le retour à la 
normale, toutes les sauvegardes ulté- 
rieures s'effectuent selon ce format. 
Ainsi, j'ai sauvegardé après de lon- 
gues modifications un tableau, sans 
savoir qu'il était en fonnat DIF. 
Quand, quelques jours plus tard, j'ai 
voulu le relire, plus rien ne marchait. 
Si je n'étais pas très prudent (et 
n'avais pas d'autres sauvegardes), 
j'aurais totalement perdu ce tableau 
avec ses fonnules. Au moins, dans 
Visicalc, faire ”/SS” ou faire ’/S#S”, 
ce n’est pas la même chose | 


Modalités d'impression 


Comme Multiplan, Magicalc formate 
l'impression automatiquement en te- 
nant compte du nombre de colonnes 
disponibles indiqué par l'utilisateur 
lors de la configuration de l'impii- 
mante. Si le tableau est trop large, 
Magicalc imprime la suite en-dessous 
de la première pattie, sans interven- 
tion de la part de l’utilisateur. 


En ce qui me concerne, je ne trouve 
pas ce formatage automatique de 
l'impression réellement intéressant : 
quand un tableau est trop large et 
que je veux limprimer sur deux 
pages, je souhaite garder sur la se- 
conde page la colonne À, ou les co- 
lonnes À et B, ce que ne fait pas le 
formatage automatique. Le problème 
est indentique pour un tableau trop 
long : on souhaite en général repro- 
duire une ou deux lignes de titres en 
haut de la suite du tableau. 


Conclusion 


Magicalc est tellement intéressant que 
je l'utilise systématiquement à la 
place de Visicalc pour mes propres 
tableaux. Dans le numéro 6 de 
Pom's, j’expliquai que j'utilisais tantôt 
Visicalc, tantôt Multiplan. Maintenant, 
j'alterne suivant les besoins entre Ma- 
gicalc et Muitiplan. De la même 
façon que je ne prends pas la même 
voiture pour faire de la conduite en 
ville ou de la route (si j'ai le choix), 
je ne prend pas le même tableur 
pour tous mes tableaux. 


J'attends la sortie de Visicalc Advan- 
ced Version sur Apple //e et l'an- 
nonce de son prix, encore indéfini, 
pour savoir si je vais un jour rempla- 
cer Magicalc par celui-là … En atten- 
dant, je ne lâche pas mon exem- 
plaire de Magicalke ! 


Pom's n° 9 


Editeur-compositeur de texte 


EDIT est un éditeur de texte écrit en 
BASIC et fonctionnant ligne à ligne. 
U offre de nombreuses possibilités 
d'insertion, de suppression et de mo- 
dification de lignes, fonctions classi- 
ques d’un éditeur de texte. 


Ün accent particulier a été mis sur 
l'aspect ergonomique du dialogue. 
Le menu des commandes est ainsi 
accessible à tout moment, de même 
que le mode d'emploi des différentes 
commandes, 


EDIT traite tous les fichiers à accès 
séquentiel en mode texte dont les 
enregistrements ont une longueur in- 
férieure ou égale à 255 caractères. 
Ces derniers pouvant être quelcon- 
ques, EDIT utilise la routine d’'INPUT 
généralisé appartenant au  pro- 
gramme La Programmation Facili- 
#e” de Denis Sureau, publié dans 
Pom's 5. 


Chaque enregistrement est une 
ligne” pour l'éditeur. 


Le champ d'action de l'éditeur 
s'étend aux procédures cataloguées, 
aux textes destinés au compositeur 
de texte COMPOS {voir plus loin) et 
aux programmes BASIC. 


Tout programme BASIC peut en 
effet, comme Pom's l'a déjà signalé, 
être transformé en un fichier TEXT 
au travers d’un fichier EXEC. 


Principes de fonctionne- 
ment de l'éditeur 


Le texte à éditer est stocké dans un 
fichier TEXT désigné par son nom et 
éventuellement un numéro de lecteur 
(par exemple SOURCE,D2 ou 
TEXTBASIC avec D1 par défaut). 
Le nom de ce fichier constitue la pre- 
mière information à fournir à l’édi- 
teur; donner un nom ne correspon- 
dant à aucun fichier existant sur la 
disquette utilisée revient à commen- 
cer l'édition d’un nouveau texte. 


Si le fichier existe, il est lu en mé- 
more. 


Tout au long de l'édition, EDIT 
maintient un pointeur sur la ligne en 
cours de traitement, dite ligne cou- 
rante. Le pointeur évolue en fonction 
des commandes données et, en gé- 
néral, la ligne courante est imprimée 
après l'exécution d'une commande. 
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Mise en route du programme 
Les instructions nécessarres sont : 


BRUN PROGR4SK (’La Program- 
mation facilitée”) 


RUN PROGR.EDIT 


Sur la disquette d'accompagnement, 
le fichier EDIT contient ces deux 
commandes, et le lancement peut 
donc se faire par EXEC EDIT. 


Les commandes 


La commande ‘”?” affiche à l'écran la 
liste des commandes disponibles. 
Comme. toutes les autres, elle doit 
être tapée en réponse à la question 
COMMANDE? posée par le pro- 
gramme, et non au cours de l'édition 
elle-même. 


Chaque nom de commande suivi du 
caractère ”’?”” (C? par exemple) aff- 
che le mode d'emploi correspondant. 


1) Commande N{ext) 


e N p: progression du pointeur de 
ligne de p positions. N équivaut à 
N 1. 


e N/chaîne: positionnement du 
pointeur sur la première ligne, en 
avant de la ligne courante, où se 
trouve la chaîne spécifiée. 


2) Commande U(p) 


e U p: recul du pointeur de p posi- 
tions. U équivaut à U 1. 


e U/chaîne: positionnement sur la 
première ligne, en arrière de la 
ligne courante, où se trouve la 
chaîne. 


Lorsque l'éditeur rencontre le début 
du texte, il affiche le message FIN 
DE FICHIER et le pointeur se place 
devant la premu'ère ligne du texte. 


3} Commande T{op) 


e Positionnement au début du texte, 
avant la première ligne existante, 
ce qui permet les insertions en tête 
du fichier. 


4) Commande Bottom) 


e Positionnement sur la dernière 


ligne du texte. 
5) Commande J{(ump) 


® J p: lorsque le fichier correspond 
à un programme BASIC, le poin- 
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teur vient sur la ligne portant le 
numéro p. 


6) Commande Dfelete) 


e D p: suppression de p lignes, 
ligne courante compiise. D équi- 
vaut àD L 


7) Commande lI{nsert) 


® Insertion de lignes derrière la ligne 
courante. La fin de l'insertion est 
indiquée par une ligne ne compor- 
tant que le caractère ”#”. La der- 
nière ligne insérée devient ligne 
courante. 


8) Commande R{eplace) 


e R chaîne: remplacement de la 
ligne courante par la chaîne don- 
née. Cette commande équivaut à 
la suite de commandes D, UÙ, I, 
chaîne, #. 


9} Commande Change) 


e C/chaîne 1/chaîne 2: remplace 
“chaîne 1” par ”’chaîne 2” dans la 
ligne courante. 


e Cx/chaîne l/chaîne 2: même 
opération, mars cette fois sur l'en- 
semble du fichier. 


10) Commande A(gain) 


© Répétition de la dernière com- 
mande exécutée. 


11) Commande P{rint) 


e P n: affichage de n lignes, ligne 
courante compiise. P équivaut à P 
1. 


© P*x n: impression de n lignes sur 
une impiimante en slot 1. P« 
équivaut à P« 1. 


La dernière ligne traitée devient ligne 
courante. 


12) Commande Wliite) 


e W NOM p: écriture dans le fichier 
baptisé NOM de p lignes à parür 
de la ligne courante. Si le numéro 
du lecteur n'est pas précisé, EDIT 
utilise par défaut celui supportant 
le fichier à éditer. 


e Wx NOM p: éciiture de toutes les 
lignes comprises entre la ligne 
courante et celle de numéro p 
lorsque le texte correspond à un 
programme BASIC. 
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13) Commande G(et) 


e G NOM pl p2: insertion derrière 
la ligne courante de lignes issues 
du fichier NOM, pl et p2 préci- 
sant les rangs dans ce fichier de la 
première et de la dernière ligne à 
insérer. 


e G+ NOM pi p2 : insertion dernière 
la ligne courante des lignes BASIC 
pi à p2, lorsque les fichiers traités 
correspondent à des programmes 
BASIC. 


14) Commande File) 


e Fin de l'édition avec mise à jour 
du fichier TEXT initial. 


Pour des raisons de sécutité, cette 
opération se fait en trois étapes : 


— écriture du texte dans le fichier 
TEMPO 

— destruction du fichier initial 

— remplacement du nom TEMPO 
par le nom initial. 


15) Commande Q{uit) 


e Abandon de l'édition en cours 
sans mise à jour du fichier. 


Remarque 


U est possible d'obtenir une version 
plus compacte de PROGREDIT, 
sans affichage du menu des 
commandes et de leur mode d’em- 
ploi. Pour ce faire, effectuez les opé- 
rations suivantes : 


e supprimer les lignes 50, 350, 9500 
et 10000 


© remplacer la ligne 40 par 40 
HOME 


e remplacer la ligne 310 par 310 
GOTO 1230 


© remplacer la ligne 330 par 330 IF 
MID$(A$,2,1}="?" THEN 1230 


Le compositeur de texte 
COMPOS 


COMPOS est un outil chargé de 
mettre en forme un texte source 
dans lequel sont insérées des 
commandes de mise en page. Le 
texte source est un fichier TEXT à 
accès séquentiel qui peut être aisé- 
ment généré et corigé par EDIT. 


Trois options sont possrbles pour la 
mise en page : 


e affichage à l'écran 

® impression 

e écriture dans un fichier TEXT 
(fichier objet). 


La sortie sur écran du texte composé 
facilite la mise au point du texte 





source, la mise en page étant absolu- 
ment identique (à la longueur des 
lignes près) pour les trois supports de 
sortie. 


Le clavier standard de l'Apple Il Plus 
ne gère pas les minuscules, mais 
COMPOS permet cependant le mé- 
lange de majuscules et de minuscules 
pour un texte imprimé. 


L'opération de composition est relati- 
vement lente. Cela s'explique par le 
fait que chaque caractère du fichier 
source est anaiysé et, éventuelle- 
ment, recodé en minuscule. Lorsque 
l'utilisateur désire imprimer plusieurs 
fois un même texte, il a donc intérêt 
à demander la création d'un fichier 
objet qui pourra ensuite être imprimé 
à volonté par l'éditeur EDIT (com- 
mande P«). 


Le fichier source, de même que le fi- 
chier objet, sont désignés par un 
nom suivi d’un numéro de lecteur 
(TEXTE,D2 par exemple). Pour le fi- 
chier source, le lecteur pris par dé- 
faut est D1. Par défaut toujours, le 
fichier objet sera écrit sur le lecteur 
utilisé pour le fichier source. 


Commandes de mise en 
page 


Le fichier source se compose du 
texte proprement dit et des comman- 
des de mise en page. Ces dernières 
ont toujours ”]J” pour premier carac- 
tère. Certaines comportent un carac- 
tère numérique; dans ce cas, la fin 
de la commande est obligatoirement 
un espace. 


COMPOS reconnait six commandes : 
e }P : provoque un saut de page 
e |: provoque un saut à la ligne 


e En: provoque un saut de n lignes 


e ]JSn: génère n espaces en début 
de ligne 


e ]Tn: crée une marge de n carac- 
tères s'appliquant à toutes les 
lignes suivantes jusqu’à la rencon- 
tre d'une nouvelle commande T 
(TO annule toute marge) 


e ]M: cadre la phrase suivante en 
milieu de ligne. 

Pour les commandes L, Set T,n 

vaut 1 par défaut. 


Le caractère ”]” est obtenu par 
"SHET-M”. Pour l'utiliser dans un 
texte, il suffit de le doubler. 


Mise en page 


L'unité de traitement de COMPOS 
est le mot, c'est-à-dire une suite de 


caractères linutée par l'indicateur de 
commande ]}, un espace ou un RE- 
TURN. 


Chaque enregistrement du fichier 
source peut compoiter un nombre 
entier quelconque de mots. 


COMPOS calcule l'espacement libre 
entre les mot de manière que toutes 
les lignes du texte aient la même lon- 
gueur, en tenant compte de la marge 
demandée. 


Une phrase peut être précédée d’une 
ou plusieurs commandes de mise en 
page (saut de ligne par exemple). 


En l'absence de commandes, les 
phrases sont générées les unes à la 
suite des autres, une majuscule sui- 
vant toujours les caractères ”.”, 7?” 
et: 
Sur imprimante ou dans le fichier 
objet, le texte est composé en minus- 
cules, à l'exception du premier carac- 
tère de chaque phrase. il est en outre 
possible de commander l'emploi des 
majuscules pour une suite de carac- 
tères en les encadrant par @ (pour 
utiliser @dans un texte, il suffit de le 
doubler). 


En affichage à l'écran, COMPOS met 
les majuscules en INVERSE. 


Format d’impression 


Lorsque le texte composé est sorti 
sur une imprimante (slot 1) ou copié 
dans un fichier, COMPOS retient le 
format suivant : 


e 75 caractères par ligne 
e 66 lignes par page. 


La modification des lignes 30 et 40 
du programme PROGRCOMPOS 
permet de changer ces paramètres. 


Mise en route du compo- 
siteur 


Elle résulte des instructions suivan- 
tes : 


BRUN PROGR48K 
RUN PROGR.COMPOS 


Sur la disquette d'accompagnement, 
ces commandes sont contenues dans 
le fichier COMPOS, et il suffit donc 
de faire EXEC COMPOS. 


Exemple 


1) Le texte source est introduit 
comme suit : 


IM@LES SEPT JOURS DE LA SEMAINEG 
IL2 UNE SEMAINE EST COMPOSEE 
DE SEPT JOURS. CE SONT : 
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ITS ] LUNDI ] MARDI ] MERCREDI 


] JEUDI ] VENDREDI ] SAMEDI ] DIMANCHE 
JL1 ]TO IL Y À 52 SEMAINES DANS UNE 


ANNEE. 


2) À l'impression, il sort sous la 
forme : 


jours. Ce sont : 


Lundi 
Mardi 


Programme PROGR.EDIT 


10 REM #=#### EDITEUR DE TEXTE EDIT 
20 REM #2 G. HISLEUR 
30 SCS = ‘“/‘": REM SEPARATEUR DE CHAINE 


40 GOSUB 9500 


SO PRINT “TOUTE COMMANDE SUIVIE DE ? ENTRAIN 
E'": PRINT ‘‘L’AFFICHAGE DE SON MODE D’'E 
MPLOI.‘": PRINT 

100 NDS = “,D1": DIM SOURCES(1000),TN(1000),T 
UC1000) 

105 INVERSE : PRINT ‘NOM DU FICHIER A EDITER 
7";3: NORMAL : & INPUT NAS 

110 BS = NAS: GOSUB 8100:NDS = DIS:NAS - 8s 

115 DS = CHRS (4): PRINT DS;:'""OPEN"; NAS : NDS 

120 POKE 222,0: ONERR GOTO 165 

130 I = 1: PRINT DS;'"READ";NAS 

140 & INPUT SOURCES(I) 

150 I = I + 1: GOTO 140 

165 IF PEEK (222) < > S THEN 9000 

170 PRINT DS; "CLOSE"; NAS:IMAX = I:IS = O:IX 
= IMAX + 1 

175 POKE 216,0 

180 FOR I = O TO IMAX:TNCID = I + 1:TUCI) = 
L' =" LS NEXT 

1930 TNCIMAX)I = IMAX:TUCO) = O 

195 IF IMAX = 1 THEN NW = 1: PRINT : PRINT * 
NOUVEAU FICHIER": PRINT 

200 PRINT : INVERSE : PRINT ‘“COMMANDEZ?":: NO 
RMAL : & INPUT AS 

205 PRINT :ALS = LEFTS (A$,1):8 = LEN (AS) 

210 CAS = “’NUDCIPATBF.JWGRQ"‘ 

215 FOR NC = 1 TO 15: IF ALS = MIDS (CAS,NC 
1) THEN 320 

220 NEXT 

310 PRINT : GOSUB 9500: GOTO 200 

320 IF ALS < > ‘‘A‘ THEN OAS = AS 

330 IF MIDS (AS,2,1) = ‘?7" THEN HOME : RES 
TORE : FOR I = 1 TO NC‘ READ CS: NEXT 
: PRINT TAB( 10);:: FLASH : PRINT LEF 
TS (CS,12;: NORMAL : PRINT RIGHTS (CS 
+ LEN (CS) - 1): PRINT : PRINT : GOTO 
350 

340 ON NC GOTO 1000,1500,2000,2500,3000,33500 
4000 ,4500,35000,53500,6000,63500,7000,75S 
00,7600 

350 ON NC GOTO 3600,9640,9680,9710,9780,9820 
»3850,9860,9880,9900,9910,9920,9940,99 
80,9393930 

1000 REM nannanrnananananaeerx COMMANDE N 

1010 IF 8 = 1 THEN 1040 

1020 IF MIDS (AS,2,1) = SCS THEN 1100 

1030 GOSUB 1200 

1040 IS = TNCIS): IF IS = IMAX THEN 8510 

1060 B = B - i: IF B > O THEN 1040 

1080 PRINT SOURCES(IS): GOTO 200 

1100 B$ = RIGHTS (AS,B - 2) 

1110 IS = TN(IS): IF IS = IMAX THEN 8510 

1130 C$# = SOURCES(IS):C = LEN (CS): IF C < B 

- 2 THEN 1110 

1150 FOR I = 1 TOC - B + 3 

1160 IF MIDS (CS,1,8 - 2) = 8S THEN 1080 

1170 NEXT : GOTO 1110 

1200 85 = RIGHTS (AS,8 - 1) 

1205 8 = VAL (85) 

1210 IF LEFTS (BS,1) = ‘ “* AND BS < > “ " 
THEN BS = RIGHTS (BS, LEN (BS) - 1): 
GOTO 1210 
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LES SEPT JOURS DE LA SEMAINE 


Une semaine est composée de sept 


1220 
1230 


1500 
1510 
1520 
1530 
1540 
1560 
1580 
1600 
1610 
1630 


1650 
1660 
1670 


2000 . 


2010 
2020 
2040 
2050 
2060 


2110 
2120 
23500 
2505 


2510 
2320 
23530 
2540 
23560 
2570 
2580 
2600 


2610 


2620 
2625 
2630 
2635 
2636 
2640 
2650 
2670 
2680 
2690 


2700 
2710 


2750 
2760 
2770 
2790 


2810 
3000 
3020 
3030 
3040 


3050 


Mercredi 
Jeudi 
Vendredi 
Samedi 
Dimanche 


I y a 52 semaines dans une année, 


IF 8S = STRS (B) THEN RETURN 

PRINT DS"PR#O‘*: PRINT "COMMANDE INCORRE 
CTE‘®*: GOTO 200 

REM nannnnnnannnnanannaana COMMANDE U 

IF 8 = 1 THEN 1540 

IF MIDS (AS,2,1) = SC$S THEN 1600 


GOSUB 1200 


IS = TUCIS): IF IS = O THEN 8510 
8 = 8 - 1: IF B > O THEN 1540 
PRINT SOURCES(IS): GOTO 200 
BS = RIGHTS (AS,B - 2) 
1S = TUCIS): IF IS - O THEN 8510 
CS = SOURCES(IS):C = LEN (CS): IF C < B 
2 THEN 1610 
FOR I = 1 TOC -B +3 
IF MIDS (CS,1,B - 2) = BS THEN 1580 
NEXT : GOTO 1619 
IF 8 = 1 THEN 2040 
GOSUB 1200 
IF 1S = IMAX THEN 8510 
IF 1S = O©O THEN IS = TN(O) 
SOURCES(IS) = ““":TN(TUCIS)3 = TN(IS):TUC 
TNCIS)D) = TUCIS):IS = TN(IS):8 = B - 1 
: IF 8 > O THEN 2040 
IF IS = IMAX THEN 8510 


PRINT SOURCES(IS): 
REM verenananasnnnnnanane COMMANDE C 
J = 2: IF MIDS (AS,2,1) = THEN J = 

3: GOTO 2540 


GOTO 200 


CE 


IF IS = O OR 1S = IMAX THEN 8510 
CS = SOURCES(IS) 

IF B = 1 THEN PRINT CS: GOTO 200 

IF MIDS (AS,J,1) < > SCS THEN 1230 
FOR I = J + 1 TO 8 

IF MIDS (AS,1,1) = SCS THEN 2600 

NEXT : GOTO 1230 

A1S = MIDS CAS,J + 1,1 - J - 1):Al1= L 

EN (CA1S) 

IF I = B THEN A2S = “‘“:A2 = O: GOTO 262 

5 
A2$ = RIGHTS (AS,B - I1):42 = LEN (CA2$) 
IF J = 3 THEN 2750 

II = 1: GOSU8 2636: IF K = 1 THEN 1230 
PRINT SOURCES(IS): GOTO 200 
CS = SOURCES(IS):C = LEN (CS) 

FOR I = II TO C - A1 + 1 


IF MIDS (CS,I,A1) = A1% THEN 2680 


NEXT :K = 1: RETURN 
CIS As me C2S = PTT SCT = Ad 2» 
IF IL < > 1 THEN C1S = LEFTS (CS,I - 1 
) 
IF 11 < > O THEN C2S = RIGHTS (CS,11) 
SOURCES(IS) = CiS + A2S + C2S:K = O0: RET 
URN 
IS = © 
IS = TNCIS): IF IS = IMAX THEN 200 
II = 1: GOSUB 2636: IF K = 1 THEN 2760 
II = IL + A2: GOSUB 2636: IF K = O THEN 2 
730 
PRINT SOURCES(IS): GOTO 2760 
REM annnanannnnnnannannanre COMMANDE I 
CS = ‘“*‘: PRINT : PRINT “‘";: & INPUT CS 
IF CS = "“#* THEN 200 
SOURCES{(IX) = CS: IF IS = IMAX THEN IS = 
TU(CIS) 
TUCIX) = IS:TUCTN(IS)} = IX:TNCIX)I = TNC 
IS) :TNÇCIS) = IX:IS = IX:IX = IX + 1: G 
OTO 3020 
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3500 
3520 
3530 
3540 


3SS0 
3560 
3570 
3580 


3590 


3600 
4000 
4010 
4500 
4510 
SO000 
5010 


5500 
5510 
SS20 
5530 
5540 
5550 


SS80 
5530 
S600 
6000 
6010 
6020 
6030 


6040 
6500 
6505 


6510 
6520 
6580 


6590 
6600 


6605 
6610 
6615 


6620 


6630 
7000 
7005 


7010 
7020 
7030 
7040 
7050 


7060 
7070 
7080 
70930 
7100 
7110 
7120 
7130 


7140 


7210 
7220 
2230 
7240 
7500 


REM MRRRREMRHHHEREHRMHEE COMMANDE P 
J = 2:NL = 1: IF J > B THEN 3570 


A1S = MIDS (CAS,J,1) 
IF A1$ = ‘“*"" THEN PRINT DS$:"PR#1": PRI 
NT CHRS (9); "8ON“":J = J + 1: IF J > B 
THEN B = B - 1: GOTO 3570 
BS = RIGHTS (AS,B - J + 1) 
GOSUB 1205 
IF IS = O THEN IS = TN(O) 
IF IS = IMAX THEN PRINT DS;'"PR#0": GOT 
0 8510 
PRINT SOURCES (IS):B = B - 1: IF B > OT 
HEN IS = TN&IS): GOTO 3580 
PRINT D$S:"PR#O": GOTO 200 
REM ranananenenananaeeere COMMANDE A 
AS = OAS$: GOTO 205 


REM nannanannananannaanaaaax COMMANDE T 

IS = O: GOTO 200 

REM Rannananannaanannananmr COMMANDE B 
IS = TU(CIMAX): PRINT SOURCES (IS): GOTO 2 


RER nannanananananaanaaaaarx COMMANDE F 
PRINT DS;'"OPEN TEMPO‘;:NDS 

PRINT D&;"WRITE TEMPO" 

IS = © 

IF TNÇIS) = IMAX THEN SS80 

PRINT SOURCES(TN(IS)):1IS = TN(CIS): GOTe 

5540 

PRINT DS; "CLOSE TEMPO“ 

PRINT DS;:"DELETE":NAS 

PRINT DS; "RENAME TEMPO,'":;:NAS: END 
REM nrranennanmanamannanrre COMMANDE J 
GOSUB 1200:15 = O 
1S = TN(IS): IF IS = IMAX THEN 8510 


C «x VAL (SOURCES(IS)): IF C < > B THEN 
6020 
PRINT SOURCES(IS): GOTO 200 
REM nrraranananannanananmee COMMANDE W 
J = 2:BA = O:A1S = MIDS (AS,J,1): IF Aî 
$ = "“#" THEN J = 3:BA = 1 
GOSUB 8000: GOSUB 8100:NFS = BS 
GOSUB 8000: GOSUB 1205 
PRINT DS: "OPEN":NFS:DIS: PRINT DS;:"WRIT 
E‘">NFS 
IF IS = O THEN IS = TN(O) 
IF IS = IMAX THEN PRINT DS;:"CLOSE";NFS 
: GOTO 8510 


CS = SSURCES(IS): IF BA = O THEN 6615 

C + VAL (CS): IF C > B THEN 6630 
PRINT CS: IF BA = 1 THEN IS = TN(IS): G 
OTO 6600 

B = B - 1: IF B > O THEN IS = TN{IS): GO 
TO 6600 


PRINT DS:'"CLOSE‘":NFS: GOTO 200 

REM ranranrannananaananee COMMANDE G 
J = 2:BA = O:A1$% = MIDS (AS,J,1): IF A1 

S = "+" THEN J = 3:BA = 1 

GOSUB 8000: GOSUB 8100:NFS = BS 

GOSUB 8000: GOSUB 1205:P1 = B 

GOSUB 8000: GOSUB 1205:P2 = B 

IF Pi < i OR P1 > P2 THEN 1230 

PRINT DS;‘"OPEN‘":NFS;DIS: PRINT DS$;:"READ 

“°NFS 

ONERR GOTO 7210 

1 = 0 

I = LI r 1:CS = “": & INPUT CS 

IF BA = 1 THEN I = VAL (CS) 

IF I < P1 THEN 7080 

IF I > P2 THEN 7220 

PRINT : PRINT CS 
SOURCES(IX) = CS: IF IS = IMAX THEN IS - 


TU(IS): 

TUXIX) = IS!ITUCTNÇCIS)) = IX:TNCIX) = TNC 
ISD2TN(IS) = IX:IS = IX:IX = IX + 1: G 
OTO 7080 

IF PEEK (222) < > 5 THEN 9000 
PRINT DS;"CLOSE®":NFS 

POKE 216,0 

GOTO 200 

REM nanasnaannananaannam# COMMANDE R 


Porm's n° 9 





7510 IF IS = O OR IS = IMAX THEN 8510 
7520 IF B = 1 THEN CS = ‘“": GOTO 7540 
7530 C$ = RIGHTS (AS,B - 2) 
7540 SOURCES(IS) = CS: GOTO 200 
7600 REM nannnnnnnnnnannannanane COMMANDE Q 
7610 IF NW = O THEN END 
7620 PRINT DS:;:"*DELETE"*>NAS: END 
8000 REM ### S/P DE RECHERCHE DE PARAMETRE 
8010 I = J: IF I > LEN (AS) THEN 1230 
8020 IF MIDS (AS,1I1,1) < > ‘ “ THEN 8050 
8030 I = I + 1: IF E > LEN (AS) THEN 1230 
8040 GOTO 8020 
8050 J =I 
8060 IF MIDS (AS,J,1) = ‘ “ THEN 8090 
8070 J = J + 1: IF J > LEN (AS) THEN 8030 
8080 GOTO 8060 
8090 BS = MIDS (AS,I1,J - 1): RETURN 
8100 REM #annannar ANALYSE NOM DE FICHIER 
8110 DIS = NDS: IF LEN (BS) < 4 THEN RETURN 
8120 IF “MIDS (BS, LEN (BS) - 2,2) = “,D*“ TH 
EN DIS = RIGHTS (BS,3):BS = LEFTS (B 
8, LEN (BS) - 3) 
8130 RETURN 
8500 REM nrnnnnnngnnnnnnnnnne MESSAGES 
8510 PRINT ‘FIN DE FICHIER‘: GOTO 200 
93000 PRINT “ERREUR BASIC “:; PEEK (222): END 
9500 REM #arranranee MENU & MODES D’EMPLOI 
9510 HOME : PRINT TAB( 7);:: INVERSE : PRINT 
‘LISTE DES COMMANDES"'': NORMAL 
9520 PRINT : INVERSE : PRINT "N'':: NORMAL : 
PRINT TABC 3):"PROGRESSION":: PRINT 
TABC 20):: INVERSE : PRINT “C":: NORMA 
L : PRINT TABC 22) :'"CHANGEMENT" 
9530 PRINT : INVERSE : PRINT “U':: NORMAL : 
PRINT TABC 3);"RECUL"*:: PRINT TAB 2 
O):: INVERSE : PRINT ‘'A“;: NORMAL : PR 
INT TAB( 22):‘"REPETITION* 
9540 PRINT : INVERSE : PRINT “T'';: NORMAL : 
PRINT TABC 3):'DEBUT DE FICHIER": : PR 
INT TABC 20):: INVFRSE : PRINT “P‘:: 
NORMAL : PRINT TAB 22);:"VISUALISATIO 
N° 
9550 PRINT : INVERSE : PRINT “B‘“";: NORMAL : 
PRINT TABC 3);:"FIN DE FICHIER‘ :: PRIN 
T TAB( 20):: INVERSE : PRINT ‘“W"“;:: NO 
RMAL : PRINT TAB( 22); "EXTRACTION" 
9560 PRINT : INVERSE : PRINT “J'‘:: NORMAL : 
PRINT TABC 3):'""POSITIONNEMENT“*:: PRIN 
T TAB( 20);:: INVERSE : PRINT ‘G";: NO 
RMAL : PRINT TAB( 22); "INTEGRATION* 
9570 PRINT : INVERSE : PRINT “D'‘;: NORMAL : 
PRINT TAB( 3):''SUPPRESSION":: PRINT 
TABC 20);:: INVERSE : PRINT “F‘®;: NORMHA 
L : PRINT TABC 22):"FIN D’EDITION‘ 
93580 PRINT : INVERSE : PRINT “l'':: NORMAL : 
PRINT TABC 3):"INSERTION'"';: PRINT TA 
BC 20):: INVERSE : PRINT ‘“Q";: NORMAL 
: PRINT TAB( 22):"ABANDON D’EDITION"“ 
9590 PRINT : INVERSE : PRINT “R‘:: NORHAL : 
PRINT TAB( 3): REMPLACEMENT‘ ;:: PRINT 
TAB( 20):: F1l.ASH : PRINT “?‘*;: NORMAL 
: PRINT TAB 22): "LISTE COMMANDES"*: 
PRINT : RETURN 
3600 PRINT : INVERSE : PRINT “N P*;:: NORMAL 
: PRINT TAB( 12); "PROGRESSION DE P L.I 
GNES DANS“ 
9610 PRINT TAB( 12):"LE FICHIER (PAR DEFAUT 
P=1)." 
93620 PRINT : INVERSE : PRINT “N/CHAINE"“;: NO 
RHAL : PRINT TABC 12):"PROGRESSION JU 
SQU’A LA LIGNE" 
9630 PRINT TABC 12):"OU APPARAIT LA CHAINE. 
‘*? GOTO 200 
3640 PRINT : INVERSE : PRINT “U P‘“:: NORMAL 
5 PRINT TAB 12):'"RECUL DE P LIGNES D 
ANS LE" 
93650 PRINT TABC 12);:"FICHIER (PAR DEFAUT P- 
LI 
9660 PRINT : INVERSE : PRINT ‘'U/CHAINE‘":: NO 
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3670 


3680 


3690 


93700 


93710 


9720 
93730 
9740 
9750 
93760 


9770 


3780 


937930 


3800 


3810 


3820 


3830 


3840 


3850 


3860 


3870 


3880 


3890 


3300 


39310 


3920 


3930 


93940 


3950 


3360 


RMAL : PRINT TAB( 12):'"RECUL JUSQU’A 
LA LIGNE OU" 


PRINT TABC 12):'APPARAIT LA CHAÏNE.'': 
GOTO 200 

PRINT : INVERSE : PRINT "D P'“:: NORMAL 
: PRINT TABC 7);'"EFFACEMENT DE P LIGN 
ES A PARTIR" 

PRINT TAB( 7);"DE LA LIGNE COURANTE (P 
AR DEFAUT" 

PRINT TAB( 7):"P=1).": GOTO 200 

PRINT : INVERSE : PRINT ‘C/CHAINE1/CHAI 
NE2'';:: NORMAL. : PRINT TABC 20);"CHANG 
EMENT DE LA" 

PRINT TAB( 20):"LIGNE COURANTE EN" 

PRINT TABC 20):'REMPLACANT CHAINE1l"* 

PRINT TAB( 20);"PAR CHAINE2, EVEN-“ 

PRINT TABC 20):‘TUELLEMENT VIDE." 

PRINT : INVERSE : PRINT ‘’C#/CHAINE1/CHA 
INE2*“;: NORMAL : PRINT TAB( 20);'"LE 


REMPLACEMENT DE‘: 
INE1 PAR CHAINE2" 
PRINT TABC 20):"EST EFFECTUE DANS‘: 
PRINT TAB 20):'"TOUTES LES LIGNES": 


PRINT TAB(C 20):‘'CHA 


PRINT TAB( 20):;‘*"OU APPARAIT CHAINEÏ. 
“3: GOTO 200 
PRINT : INVERSE : PRINT “Il”;: NORMAL : 


PRINT TAB( 4):"INSERTION DE UNE OÙ PL 
USIEURS LIGNES" 

PRINT TAB( 4):"DERRIERE LA LIGNE COURA 
NTE.* 


PRINT : PRINT TABC 4);:"LA FIN DE L’INS 
ERTION EST INDIQUEE" 

PRINT TAB( 4);"PAR UNE LIGNE #.": GOTO 
200 

PRINT : INVERSE : PRINT "“P N‘“;: NORMAL 


: PRINT TAB( 6);'"VISUALISATION DE N L 
IGNES A PARTIR" 

PRINT TABC 6);"DE LA LIGNE COURANTE 
PAR DEFAUT‘: PRINT TABC 6); "N=-1)." 


PRINT : INVERSE : PRINT ‘“P# N'°:: NORMAL 
: PRINT TAB( 6);"LISTE OBTENUE SUR L 
*IMPRIMANTE.‘®: GOTO 200 
PRINT : INVERSE : PRINT ‘’A“:: NORMAL : 
PRINT TAB( 4):"REPETITION DE LA COHMHA 
NDE PRECEDENTE.": GOTO 200 
PRINT : INVERSE : PRINT “T‘";: NORMAL : 


PRINT TAB( 4):"POSITIONNEMENT DEVANT 
LA PREMIERE” 
PRINT TABC 4): "LIGNE DU FICHIER."‘: 
9 200 
PRINT : INVERSE : PRINT ‘“B'";: NORMAL : 
PRINT TABC 4);:'""POSITIONNEMENT SUR LA 
DERNIERE LIGNE" 
PRINT TABÇC 4)};"DU FICHIER.": GOTO 200 
PRINT : INVERSE : PRINT ‘“F";:: NORMAL : 
PRINT TAB 4):"FIN DE L’EDITION.‘": GO 
TO 200 
PRINT : INVERSE : PRINT ‘“J P‘";: NORMAL 
: PRINT TAB( 6); ""POSITIONNEMENT SUR U 
NE LIGNE BASIC": PRINT TAB( 6);"DESIG 


GOT 


NEE PAR SON NUMERO (P).": GOTO 200 
PRINT : INVERSE : PRINT ‘W NF P‘“;:: NORH 
AL : PRINT TAB( 93);:"ECRITURE DE P LIG 


NES A PARTIR": PRINT TABC 9);"DE LA L 
IGNE COURANTE DANS LE": PRINT TAB( 93 
):;"FICHIER DE NOM NF." 

PRINT : INVERSE : PRINT ‘“W= NF P‘*:: NOR 
MAL : PRINT TAB( 9):"ECRITURE JUSQU’A 

LA LIGNE‘: PRINT TAB( 9):"BASIC DE N 
UMERO P.*“: GOTO 200 

PRINT : INVERSE : PRINT "G NF P1 P2*:: 
NORMAL : PRINT TAB( 13):"INSERTION DE 
RRIERE LA LIGNE‘: PRINT TAB( 13) :"COU 
RANTE DE LIGNES ISSUES" 

PRINT TAB( 13):"DU FICHIER DE NOM NF." 
5 PRINT : PRINT TAB( 13);:"P1 = RANG D 
ANS LE FICHIER": PRINT TAB(C 13):"CITE 

DE LA PREMIERE LIGNE‘ 

PRINT TAB( 13):'"A INSERER (1<=P1),": P 

RINT : PRINT TABC 33);"P2 = RANG DE 


isibtsss 


éroétr 


#5125211152122001 
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- 
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LA DERNIERE": PRINT TABC 13);"LIGNE <( 10 REM #=#### COMPOSITEUR DE TEXTE COMPOS 


P1<=P2)." 20 REM ##=### G, HISLEUR 
9370 PRINT : INVERSE : PRINT ‘“Gx NF P1 P2*:: 30 NL = 66: REH NBRE DE LIGNES PAR PAGE 
NORMAL : PRINT TAB( 13);"P1 ET P2 SO 40 LL = 75: REM NB DE CARACTERES PAR LIGNE 
NT DES NUMEROS": PRINT TAB{ 13); "DE L SO CTS = CHRS (93): REM INDICATEUR DE COMMA 
IGNES BASIC.‘": GOTO 200 NDE (1) 
3380 PRINT : INVERSE : PRINT “R CHAINE";: NO 60 IMS = “@‘*: REN INDICATEUR DE IMAJUSCULE 
RMAL : PRINT TAB( 11);:'REMPLACEMENT D 635 D$ = CHRS (4): DIM TWSt40) , SOURCES (1000): 
E LA LIGNE‘: PRINT TAB( 11):'"COURANTE GOTO 1500 
PAR CHAINE.‘": GOTO 200 70 REM ##### RECHERCHE DE CARACTERE 
99930 PRINT : INVERSE : PRINT ‘“@‘";: NORMAL : 80 IF IX = MAX THEN 300 
PRINT TABC 4);'’ABANDON DE L’EDITION." 85 IF 1C > LEN (SOURCES{IX)} THEN LS = CHR 
: GOTO 200 $S <{13):IC = 1:1X = IX + 1: RETURN 
10000 DATA “"NEXT","UP","DELETE","CHANGE"®," 90 LS = MIDS (SOURCES(IX),1IC,1):1C = IC + 1: 
INSERT‘‘,'"PRINT'',"AGAIN"",'"" TOP", "BOTTOH"'" RETURN 
»" FILE" , "JUMP", "WRITE“", "GET", "“REPLACE" 100 IC = 1:IL = 1:1IX = 1:MJ = 1:5 = O 
» "QUIT" 110 I = 1:TL = S:T =S 
120 WS = ‘"" 
130 GOSUB 80:C = O:NS = "“" 
140 IF LS “ ®* OR LS = CHRS (13) THEN 400 
150 IF LS CTS THEN 270 


DA un NH 


160 IF LS > IMS THEN 200 
Programme PROGR.COMPOS 170 GOSUB 80: IF LS = IMS THEN 240 
180 IF MJ = 2 THEN MJ = O: GOTO 140 
260 GOTO 230 190 MJ = 2: GOTO 140 
270 REM ##"#"" COMMANDES DE MISE EN PAGE 200 IF L& € > “." AND LS < > “!* AND LS € 
280 GOSUB 80: -FOR C = 1 TO 7: IF LS = MIDS > “?* THEN 215 
C"SLPTE “ + CTS,C,1) THEN 300 205 IF MJ = O THEN MJ = 1 


290 NEXT : PRINT “ERREUR TEXTE SOURCE‘: PRIN 210 GOTO 240 


rs T "LIGNE “;:1IX: PRINT : PRINT SOURCES(I 215 IF À = 1 THEN 250 
X)2: GOTO 310 220 IF MJ = O THEN L = ASC (LS): IF L > = 
300 ON C GOTO 350,350,380,350,380,310,230 65 AND L < = 9O THEN LS = CHRS (LL + 
3810 C = 2:N = O: GOTO 380 382) 
350 GOSUB 80: IF LS = “ “ OR LS = CHRS (13) 230 IF MJ = 1 THEN MJ = O 
THEN 360 240 WS = WS + LS: GOTO 130 
; 355 NS = NS + LS: GOTO 350 250 IF MJ > O THEN L = ASC (LS): IE L > = 
360 IF LEN CNS) = O THEN N = 1: GOTO 380 65 AND L < = SO THEN LS = CHRS (L - 
370 N = VAL (NS) 64) 
is 
LEA 
LA 


COMEICO Un vrai discounteur !!! 


annonce l'arrivée prochaine des micros du futur : 


LES MULTI-COMPATIBLES 


Enfichez l'interface | vous avez le langage FORTHTM, l'interface Il vous avez un IBM-PCTM l'interface III vous êtes 
compatibles APPLET" (et vous pouvez vous même construire l'interface Il! un jeu d’enfant !!!) 


PRIX TVA COMPRISE 





- Diskettes 5” 3M-SF-DD......................... 189,00F 
1 790,00 F 

- Disk Drive pour AppleTM 

(mécanismes Siemens : la “Rolls”’des Drives !!) .............,,........ 

=Caremémoire 16 Kerr te enr ae ARR én 

Carte 80 colonnes. 2.2 nee nement at scene S Ra du 

- Carieimprimante parallèle sms sesen css urvrreme den dia de 

- Carte controlleur pour Drive ......................,,,........,,,.. 

+ Imprimanteiype Nec 0023 :2:%2442: 60008: Panini tee .. 4 950,00 F 
SEIKOSHA)GP:100 À musaammanneeenare crampes 2 350,00F 

- Monitor grande marque 12" Vert .................................. 

- Réveil LCD a fixer sur Monitor .........................,....,..... 


A VENIR : UN MICRO 64K + DRIVE + MONITOR .......,......... 9 950,00 F 
A VENIR : FRANKLIN (le compatible APPLETM U.S., MEDFLYTM, des compatibles 
ATARIM , COLECOT", TRS-80TM KEEP CONTACT !!! 


COMEICO SARL, 89, R de Dunkerque 75009 PARIS M° ANVERS Tél. : 878.48.61 
TLX : 643 181 F COMEICO 


{Chercheurs français, pouvons réaliser vos projets à bas prix en Extréme-Orient grâce à nos bureaux à Hong-Kong, Taïwan. 
Contacter M' LONG) 
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380 
330 
400 
410 
420 
430 
440 


460 


470 
500 
510 
920 


540 
SSO 


S60 
570 


S8à0 
590 


600 
610 
300 
9310 
920 
330 
340 
1000 
1010 
1020 
1030 


1040 
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IF MJ = O THEN MJ = 1 1060 K = INT D / CI - 2)::K1 = D - K « (I - 
IF TL = T THEN S50O 295 FOR L = 2-TO-T = Ki = LE IF K-=.0 
REM ===» FIN DE MOT THEN 1100 
1F LEN (WS) + C = O THEN 130 1090 FOR M = 1 TO K:BS = BS + ‘* ‘“: NEXT M 
IF LEN (WS) = O AND C > O THEN 470 1100 BS = BS + TWS(L): NEXT L: IF Ki = O THEN 
1F TL = O AND C > O THEN 550 1150 
WS = " * + WS: IF TL + LEN (WS) > LL THE 1120 FOR L = I - K1 TO I - 1: FOR M = 1 TO K 
N 500 + 1:BS = BS + “ ‘: NEXT M:BS = BS + T 
TWS(I) = WS:I = I + 1:TL = TL + LEN (WS) WS(L): NEXT L 
5 IF C = O THEN 120 1150 IF A = 1 AND LEN (BS) > O THEN 1190 
D = O:wS = ‘’“*: GOTO 520 1160 PRINT BS 
REM ==» FIN DE LIGNE 1170 IL = IL + 1: IF IL = NL - 5 THEN GOSUB 
D'= LL = TL 1300 
GOSUB 1000:TWS(1) = WS:J1 = 2:TL = 5 + L 1180 RETURN 
EN (WS):T = S: IF C = O THEN 120 1130 FOR M = 1 TO LEN (BS):LS = MIDS (BS,M 
IF LEN «(WS) > O THEN 470 s195L = ASC (LS): IF L > = 1 AND L « 
T = O:WS = MIDS (SOURCES(IX),IC, LEN (SO = 26 THEN LS = CHRS (L + 64): INVER 
URCES(IX)) - IC + 1): ON C GOTO 610,56 SE 
0,580,600,590 1210 PRINT LS:: NORMAL : NEXT : PRINT ‘‘“': GO 
IF N < 1 THEN 110 TO 1170 
FOR L = 1 TO N: GOSUB 1000: NEXT : GOTO 1300 REM «mr SAUT DE PAGE 
110 1310 IF A = 1 THEN 1340 
GOSUB 1300: GOTO 110 1320 FOR L = 1 TO NL - IL + 1: PRINT : NEXT 
T = INT C(LL - LEN (WS)3 / 2):I = 1: GO 1330 IL = 1: RETURN 
TO 120 1340 PRINT TAB( 39}: GET 25: VTAB (24): HTA 
S = N B (1): GOTO 1339 
T = N:TL = N: GOTO 120 1500 REM #=#### DIALOGUE INITIAL 
IF TL > O THEN D = O: GOSUB 1000 1510 HOME : PRINT TABC 8);:: INVERSE : PRINT - 
ON À GOTO 9340,920,930 “COMPOSITEUR DE TEXTE": NORMAL : PRIN Le + 
PRINT DS: "PR#O‘": GOTO 340 T : PRINT : PRINT “LE TEXTE COMPOSE PE +4) 
PRINT DS:"CLOSE";NBS UT ETRE GENERE :"*: PRINT [er + 
END 1520 PRINT TAB( S);: INVERSE : PRINT “i":: + 
REM ####2»r IMPRESSION D’UNE LIGNE NORMAL : PRINT TAB 8):"SUR ECRAN": P Fe 
BS$S = “*: IF I = 1 THEN 1150 RINT : PRINT TABC 5);: INVERSE : PRIN Les 
IF T = O THEN 1040 T “2":: NORMAL : PRINT TAB( 8): "SUR I e 
FOR L = 1 TO T:BS = BS + “ ‘“: NEXT :T = MPRIMANTE": PRINT : PRINT TABC S):: I Li 
a NVERSE : PRINT ‘3";:: NORMAL : PRINT T Le + 
BS = BS + TWS(1): IF I < 3 THEN 1150 AB( 8):"SUR DISQUE" Lu +| 
É 
LA 
# E4 
CX Base 100", 
dre 
100 :- LA GESTION DE FICHIERS 
è TOUS AZIMUTS 
e 
Un seul programme, une multitude Ün programme parfaitement mo- 
d'applications: CX Base 100 est l'outil dulaire: CX Base 100 est un des pro- 
indispensable pour suivre vos clients, vos grammes de CX Système. Si vos Besoins 
patients, vos commandes, vos fournis- évoluent, vous pourrez, à toui moment, 
seurs, pour gérer votre trésorerie, votre compléter votre programme et, en parti- 
documentation, vos articles en stocks, culier, accéder à CX Texte pour un traite- 
pour mettre à jour vos tarifs, calculer la ment detexte totalement intégré avec vos 
paie de vos employés, etc. fichiers. 
Un programme simple etcomplet : CX Base 100 est un logiciel français déve- 
Nul besoin de connaître l'informatique; donné ter Contrôle À. et orécente dans un 
définissez vous même votre modèle de sir ne avec se doéurentalOn 
fichier; VOUS, POUTTÉS, à tout moment, complète, abondamment illustrée. 
sans avoir à réécrire les données, ajouter Contrôle X. Tour Maine- Montparnasse, 33 
ou retrancher des rubriques; ciassez, avenue du Maine. 75755 Paris. Cedex 15. 
sélectionnez vos fiches de multiples (En Belgique Néotron,37, ruede Florence, 
façons,par mots clés ou selon une combi- 1050 Bruxelles) 
naison de critères tels que “égal” “plus . 
grand que’ “plus petit que, “différent” [Æ_—_—_————— "1 
“compris entre”; faites toutes sortes de DEMANDE DE 
calculs; corrigez automatiquement une 
sélection de Éhés récentes les infor- I DOCUMENTATION l 
mations de votre choix sous différentes Nom I 
formes (états, étiquettes) et dans n'im- I x 
porte quel ordre (alphabétique, numéri- Société I 
que, chronologique), etc. Adresse 
* Actuellement en promotion. I 
Contr ole X Sicob Boutique N°67 TE) mme aps 55m 0 | 
ONE D D D D SD D CM 
sat RE  __ _* 


‘sn° 9 


17 


1530 PRINT : INPUT “QUE CHOISISSEZ-VOUS ?‘*;A 1670 PRINT DS:"CLOSE'";:NSS:MAX = I: POKE 216, 
15340 PRINT : PRINT "NOM DU FICHIER SOUREE ?" O0; ON À GOTO 1630,1700,1710 
55 & INPUT NSS!DSS$S = “,D1": IF LEN ( 1630 LL = 3S:NL = 29: HOME : GOTO 100 
NSS) < 4 THEN 1630 1700 PRINT D$;"PR#1": PRINT CHRS (9);:"80ON°': 
1560 IF MIDS CNSS, LEN CNSS) - 2,2) = *”,»" GOTO 100 
THEN DSS$ = RIGHTS (NSS,3):NSS = LEFT 1710 PRINT : PRINT "NOM DU FICHIER OBJET ?‘; 
$ (NSS, LEN CNSS) - 3) ! & INPUT NBS:DBS = OSS: IF LEN (NBS 
1630 PRINT DS:"OPEN">NSS;DS&: PRINT DS; '"READ > < 4 THEN 1770 
“:NSS: ONERR GOTQO 1660 1760 IF MIDS (NBS, LEN C(NBS) - 2,2) = ",D" 
1650 I = 1 + 1: & INPUT SOURCES(I): GOTO 165 THEN DRS = RIGHTS CNBS,3): ne = EFT 
[eo] $ CNBS, LEN (NES) - 3) 
1660 IF PEEK (222) < > S THEN PRINT “ERRE 1770 PRINT DS;:"OPEN'":NBS;:DBS&: PRINT DS:"WRIT 
UR BASIC “; PEEK (222): END E'";:NBS: GOTO 100 





| 


Fichier EDIT 


BRUN PROGR4&8K 
RUN PROGR.EDIT 


Fichier COMPOS 


BRUN PROGR48K 
RUN PROGR.COMPOS 


Programme 
PROGR 48 K 


#3300.9569 


%00- A9 4C 8D F5 03 A9 1B 89 
9308- F6 03 A9 93 8D F7 03 A9 
9310- 00 85 73 A9 93 B5 74 60 
9318- 02 BE 80 C9 84 FO D C9 
9320- AB FO 15 C9 B9 FO 12 C9 
9328- B5 FO 08 C9 AA DO 03 4C 
9330- &E 94 60 4C 2F 94 4C FF 
9328- 93 4C 05 94 A4 25 B4 07 
9340- A4 24 84 08 A3 00 85 09 
9348- 85 06 20 B1 00 20 E3 © 
9350- 20 6C DD 85 85 B4 86 A0 
9358- 00 B1 BB C9 2 DO 35 2 
9360- Bi 00 CS 4C FO 14 C9 
9368- FO 18 C9 48 FO 1D C9 2 
9370- D0 05 E6 06 4C 94 93 4C 
9378- 8D 94 20 F5 E6 86 09 4C 


3 MACHINES 


3680- 57 93 20 F5 E6 CA 86 07 
9588- 4C 57 93 20 F5 E6 CA & 
9390- 08 4C 57 93 AS 07 85 25 
9398- À5 08 85 24 20 2 FC À 
330- 06 FO 12 20 B1 00 C9 22 
9348- F0 08 09 80 20 ED FD 4C 
9380- A3 93 20 Bi 00 46 09 FO 
93B8- 19 AS 32 48 20 B4 FE A9 
93C0- AE 20 ED FD CA DO FA F6 
98C8- 09 20 10 FC CA D0 FA 68 
93D0- 85 52 20 6F FD 8A FO iE 
33D8- BD FF 01 C9 83 FC A BD 
930- FF 01 29 7F 9D FF 01 CA 
93E8- DO F5 A9 00 RO 02 A2 8D 
93F0- 20 E9 E3 20 SA DA A2 00 
93F8- 60 20 3A FF 4C DO 03 20 
9400- 25 94 4C 41 D9 20 25 9% 
9408- A9 03 20 De D3 ÀS 89 48 
9410- À BB 4B À 76 48 ÀS 75 
9418- 48 A9 BO 48 20 B7 00 20 
9420- 41 D9 4C D2 D7 20 Bi 00 
9428- 20 67 DD 20 52 E7 60 20 
9430- Bi 00 A2 FF 2C 10 CO CA 
9838- FO 13 AC 1A 93 88 FO F7 
9440- A9 0A 20 AB FC 2C 00 C0 
9448- 10 F3 2C 10 CO 60 20 Bi 
9450- 00 20 ES DF 48 98 4B 20 
9458- F5 E6 CA EO 18 B9 2E &6 
9460- 08 20 F5 EB 84 FO 26 CA 
9468- 86 06 20 F5 E6 8A 18 &5 
9470- 06 C9 29 BO 18 85 07 20 


POUR LE PRIX D’UNE SEULE 


UNE IMPRIMANTE 
ualité courrier 


9478- F5 E6 &$ OB EB 84 09 B0 
9480- 85 OC A9 01 85 09 À 08 
9aBB- 85 25 40 C3 94 20 84 FE 
9490- 20 2D FF 4C DO 03 00 20 
9498- 15 95 ÀS 09 C9 02 B0 15 
J4R0- ÀS 0B Aû OB 88 18 6D 18 
9648- 93 88 D F9 85 25 AS 0B 
94B0- 85 09 4C CS 4 20 15 3 
9488- À5 25 69 00 ED 18 93 85 
JéC9- 25 C6 09 20 80 FE AD 19 
94CB- 95 8D %6 94 20 43 95 2C 
94D0- 10 CO 2C 00 CO 10 FB AD 
94D8- 00 CO 2C 10 CO C9 95 FC 
94EO- 40 C9 88 FO B2 C9 98 FO 
98E8- 51 C9 8D FO OC C9 Bi SD 
JFO- Ei CS OC B0 DD 29 OF 85 
94F8- 09 68 85 83 68 85 B4 #9 
9500- 00 Aà 09 20 F2 E2 À 84 
9508- A4 83 20 2B EB A9 40 85 
9510- 24 20 84 FE 60 20 84 FE 
9518- A9 A0 8D % 94 20 50 35 
9520- 60 20 15 95 A5 09 C5 0B 
9528- 90 03 4C 82 S A5 25 18 
9530- 6D 18 93 85 25 E6 09 4C 
9538- C3 4 20 58 FC 20 84 FE 
9540- 4C DO 03 ÀS 25 C9 18 % 
9548- 04 A9 17 85 25 20 22 FC 
9550- A4 06 C4 07 DO 06 AD % 
9558- 94 91 28 60 Bt 28 09 60 
9e60- 25 32 91 28 C8 C4 07 % 
9S68- F3 60 


UNE MACHINE A ÉCRIRE 


Avec mar guerites interchangeables 


CARTE APPLE 


émissien/réception 


VOTRE APPLE 


TOTALE FORMATION 
T.F. SYSTEM 


14, us Goulle 92200Neuilly - Tél. 745.62.73 


UN TERMINAL 


Avec clavier francais pour la rentrée des données 


T.F. SYSTEMES propose toute la gamme UNDERWOOD- 
OLIVETTI interfacée pour votre APPLE depuis l'UNDERWOOD _ 4 
3000 5000 F HIT. avec interface jusqu'à lUNDERWOOD 7500 
12000 F HIT. avec interface. 
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Fusion de tables de shapes 


UFS permet de fusionner deux tables 
de shapes d’otigines différentes en 
une seule, en renumérotant les 
shapes de la seconde dans la succes- 
sion de celles de la première, et dis- 
pense ainsi d’altemer les deux tables 
comme on le ferait avec les deux 
POKES classiques (POKE 232, 
Adresse Basse et POKE 233, Adresse 
Haute) si l'on avait voulu utiliser 
deux tables de shapes avec un 
même programme. 


La logique des opérations se déduit 
naturellement de la structure d’une 
table de shapes de l’Applesoft, que 
l'on peut rappeler ici en quelques 
mots. 


Le manuel de référence de l'Apple II 
(page 95) illustre cette structure par 
un shéma représentant une table où 
l'on distingue trois parties : 


1 - La taille de la table occupe les 
deux premiers octets. Toutefois, 
comme cette taille est limitée à 255, 
seul le premier octet est effective- 
ment utilisé. 


2 - La table d'adresses occupe autant 
de fois deux positions qu'il y a de 
shapes dans la table. Le premier 
octet, comme il se doit, contient la 
partie basse de l’adresse de la shape 
correspondante, le second la partie 
haute. 


3 - Comme dans la table des adres- 
ses, les shapes se suivent dans l’or- 
dre de la numérotation utilisée par 
les instructions DRAW et XDRAW et 


table. Chaque shape est terminée par 
un O0 


Partant de là, fusionner deux tables 
revient au traitement suivant : 


1 - Additionner les nombres de 
shapes et placer le résultat obtenu au 
début du nouveau module. 


2 - Mettre bout à bout les deux 
tables d'adresses en rectifiant leurs 
valeurs. Ce sont bien sûr des adres- 
ses relatives qui se comptent par rap- 
port au début de la table de shapes. 


Les adresses dans la première table 
sont augmentées de la taille de la 
partie 2 de la seconde qui s’intercale 
entre les parties 2 et 3 de la pre- 
mière. Les adresses de la seconde 
table sont augmentées des tailles des 
parties 2 et 3 de la première. 


3 - Après les deux tables d'adresses, 
on met bout à bout les deux blocs 
de shapes. 


Le petit schéma qui suit devrait aider 
à mieux suivre les calculs effectués 
par le programme. 


TABLE 1 TABLE 2 FUSION 

1) Taïle 1) Taille 1) Taille 

N1 prend 2 N2 prend 2 N3=N1+N2 sur 

octets ectet 2 octets 

2) Adresses 2) Adresses 2} Adresses 

N1x2 octets N2+2 octets {N1+N2}#2 
octets) 

3) Shapes 3) Shapes 3) Shapes 

X1 ectet X2 octets X1+X2 octets 


Le programme met en oeuvre ces 


par Denis Sureau 


compte des particularités des éditeurs 
de shapes existants quant aux tables 
qu'ils produisent. Des octets sans 
emploi peuvent s'intercaler entre 
deux parties normales d’une table, 
aussi calcule-t-on les points de départ 
de chaque champ sans les présuppo- 
ser sur la position suivant directe- 
ment le champ précédent. 


Notons que certains de ces éditeurs, 
et parmi les meilleurs, ne permettent 
de produire qu'un nombre limité de 
shapes, ce qui fait l'intérêt du présent 
programme à leur endroit. 


Pour utiliser le programme, insérez la 
(les) disquette(s) contenant les deux 


tables de shapes lorsque le pro- He 
gramme demande leurs noms pour ti 
les charger. En appuvyant sur ”?” puis + | 
RETURN, on obtient un catalogue " 
préalable. La fusion s'opère sans in- >= 


tervention et le programme demande = 
ensuite sous quel nom doit être 2 
sauvé le module. insérez la disquette je 


qui doit le contenir avant d’en don- Les 
ner le nom. En appuyant seulement u + 
sur RETURN, on annule l'opération. 1 


Le nombre de shapes correspond 
théoriquement au total des shapes 
contenues dans les deux tables primi- 
tives, cela peut toutefois s'avérer 
inexact car certains éditeurs inscrivent 
un nombre forfaitaire de shapes. 


NDLR. : les fichiers fusionnés doi- 
vent être ’’effectivement” des tables 
de shapes, sous perïne d'erreurs Ap- 





elles forment la troisième partie de la principes en essayant de tenir  plesoft, voire pis encore... 
Programme UFS 210 Li = PEEK (43616) + PEEK (43617) » 
256 
220 REX 
100 HIMEM: 8191 CHARGE SHAPE TABLE 2 
110 D1 = 16384 230 INPUT "N@M DE LA ST #2:";:S25S 
120 DS = CHRS (4) 240-D2-<:Dive Li 
130 REM 2350 PRINT DS"BLOAD"S2$",A"D2 
FUSION DE SHAPES 260 L2 = PEEK (43616) + PEEK (43617) # 
PAR DENIS SUREAU 2S6 
140 H@KE 270 REX 
1350 LIST 130!:A = — 912: CALL A: CALL A CALCUL D°ADRESSES 
: REM SCROLL 286 B3 = D2 + L2 
290 REM ARR@NDI DE D3: 
160 PRINT ‘DONNEZ ‘7?’ POUR AVOIR LE CAT 300 D3 = INT ((D3 + 100) / 100) # 100 
AL@GUE": PRINT 310 N1 = PEEK (D1) 
170 REM 320 N2 = PEEK <CD2) 
CHARGE SHARE TABLE 1 330 S1 = PREEK CD1 + 23 + PEEK (DL + 3) 
180 OINPBUT "NOM DE LA ST #1:'";S1S re 256 + D1 
1930 IF S1S = "?"* THEN PRINT CHRS (4) 340 S2 = PEEK (D2 + 2) + PEEK (D2 + 3) 
CATAL@G‘': GOTC 180 * 2356 + D2 
200 PRINT DS‘"BLOAD'"S1S‘",A‘"D1 350 S3 = D3 + 2 + N1 # 2 + N2 = 2 
a 
Pom's n° 9 19 


ENTREE ETIENNE 


360 LS 
370 Sd 


DL SEL ES IST! 
S3 + LS 


380 IF €N1 + N2) > 255 THEN PRINT “> 2 | 700 
55, TROP LONG!‘': END 
390 FLASH : PRINT : HTAB 13: PRINT “<< 720 


FUSION >>": NORMAL 
400 REKH 


680 POKE D3,N1 + N2 


6930 CALL - 998: CALL - 958 
INPUT "NOM DE LA ST OBTENUE:";S3$ 
710 IF S3s “* THEN 730 


730 PRINT 


PRINT DS"BSAVE®"S3$",A"D3",L"L3 


740 PRINT “ADRESSE ACTUELLE: ‘;D3 


PRINT “VECTEUR:" 


760 POKE 233,D3 / 256 


POKE 232,D3 - 


PEEK (233) » 256 


780 PRINT “POKE 232,"; PEEK (232) 
7930 PRINT “POKE 233,";: PEEK (233) 


COPIE DES ABRESSES DE STI 750 
410 J = D3 
420 FOR I = D1 + 2 TO D1 + 2 + Ni»= 2 S|770 
TEP 2 
480 TI = Ter 2 
440 TEMP = PEEK (I) + PEEK (I + 1) « 2|800 REM 


S6 


##»* DEMO DES ST FUSIONNEES ### 


450 TEMP = TEMP + N2 #8 2 - S1 + (D1 + N1 | 810 PRINT : PRINT "DEMO (O/N)?";: GET A 
# 2 + 2) s 
460 POKE J + 1,TEMP / 256 820 IF AS < > ‘“O"“ THEN END 
470 POKE J,TEMP - ( PEEK (J + 13 »* 256) | 830 PRINT 
480 NEXT I 840 POKE - 16301,0 
490 REX 850  HGR 
COPIE DES SHAPES DE STI 860 SCALE= ROT= O: HCOLOR= 7 
500 FOR I = Si TO S1 + LS 1 870 VTAB 21: CALL - 958 
D OPOPE SC PPER CES SS Se ST 880 PRINT “SHAPE # (1-“N1 + N2“)*;: INP 
520 NEXT I UT SS: IF S$ = ‘** THEN TEXT : HO 
530 REM ME : END 
COPIE DES ADRESSES DE ST2 890 HGR 
540 J = D3 + N1 » 2 900 S = VAL (SS): DRAW S AT 140,80 
550 FOR I = D2 + 2 TO D2 + 2 x N2 STEP |310 coTo 870 
2 920 REM 
560 TEMP = PEEK (1) + PEEK CI + 1) *« 2 #2 LISTE DES VARIABLES #2* 
56 930 REM D1=DEBUT ST1 


570 TEMP = TEMP + N1 8 2 + LS - S2 + (D2 | 940 REM L1=LONGUEUR ST1i 
950 REM D2-DEBUT ST2 
360 REM L2=LONGUEUR ST2 
‘370 REM D3=DEBUT ST3 


+ 2 + N2 » 2) 
580 J = J +2 


590 POKE J + 1,TEMP / 256 


600 POKE J,TEMP - 
610 NEXT I 
620 REM 


COPIE DES SHAPES DE ST2 
630 FOR I = S2 TO D2 + L2 


640 POKE S4, PEEK (I) :Sd4 
650 NEXT I 
660 REM 


SAUVEGARDE DE ST3 


670 L3 = S4 - D3 


930 REK 


( PEEK (J + 1) * 256) | 980 REM L3=LONGUEUR ST3 


1000 REM N1=# DE SHAPES EN ST1 


1010 REM N2=# DE SHAPES EN ST2 


1 1020 REM S3=DEBUT SHAPES DE ST1 EN ST3 


S4 + 1 


1030 REM S4=DEBUT SHAPES DE ST2 EN ST3 


1040 REM S1-DEBUT SHAPES EN ST1 
1050 REM S2=DEBUT SHAPES EN ST2 
1060 REM LS=TAILLE DU BLOC DE SHAPES DE 


STi 








Un éditeur graphique HGR 


Jacques Duma 


EDITEUR-HGR est un programme 
simple permettant de réaliser des gra- 
phiques en haute résolution à l'aide 
des paddles. 


Un curseur peut être déplacé sur 
l'écran avec les deux poignées. Pour 
marquer la position d'un point, tapez 
’espace” ou ‘flèche à droite”; ”es- 
pace” place seulement le point, alors 
que la flèche trace une ligne entre ce 
demier et le précédent La flèche à 
gauche efface ce qui vient d'être 
tracé, on peut ainsi revenir en anière 
de plusieurs pornt et coniger les er- 
reurs. 


Lorsque le graphique est terminé, 
tapez RETURN. Le programme refait 
le dessin définitif à l’aide des don- 
nées calculées aux fins de vérifica- 
tion. 


Il peut ensuite être sauvé sous forme 
d'un fichier TEXT récupérable par 
EXEC. Indiquez pour cela le numéro 
de ligne à partir duquel vous désirez 
que votre graphique soit stocké sous 
fonne de DATA. Les données mé- 
morisées sont les suivantes : 


e le premier nombre est le nombre 
de points 


e les triplets suivants sont les points 
eux-mêmes - sous la forme À,X,Y 


A TERME 


20 


- où X et YŸ sont les coordonnées 
du point, utilisables par HPLOT 
X,Y ou HPLOT TO X,Y selon la 
valeur de À, qui définit le type du 
point (A=0 résulte d'un espace” 
et A=1 d'une "flèche à droite”). 


Le programme DESSINATEUR-HGR 
montre comment utiliser ces lignes 
de DATA. Pour réaliser vos propres 
dessins, supprimez les lignes 100 à la 
fin, et faites un EXEC du fichier que 
vous avez préalablement constitué 
avec EDITEUR-HGR. L'exécution du 
programme résultant de ces opéra- 
tions rendra hommage à vos talents 
graphiques. 
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Programme EDITEUR-HGR 


3 MM 


10 K 


11 


<  PEEK (115) + PEEK (116) 
M = MM - 26: HIMEM: MM - 31 
INT (KM / 256):KL = KM - 256 * 
KH: POKE 232,KL: POKE 233,KH: FOR 
I = KM TO KM + 20: READ EE: POKE 
I,EE: NEXT 
DATA 1,0,6,0,21,0,77,36,28,63,63,23, 
954,94,14,45,45,5,32,4,0 


* 256:K 


H = 


20 TEXT : HOME : PRINT “CREATION D’UN D 
ESSIN EN HGR”‘ 
30 PRINT : PRINT : INPUT “NOMBRE MAXIMU 
M DE POINTS ? ‘";:N: DIM T%x(2,N) 
40 HOME : PRINT : PRINT “LES CURSEURS D 
EPLACENT LE REPERE®: PRINT : PRIN 
T "SUR L’ECRAN.": PRINT : PRINT : 
PRINT 
950 PRINT : PRINT "’ESPACE’ MARQUE UN PO 
INT DE DEPART.'': PRINT : PRINT “ 
*->! LIE L£ POINT AU PRECEDENT 
60 PRINT : PRINT °<-° REVIENT AU P 
OINT PRECEDENT.‘“": PRINT : PRINT “ 
‘RETURN’ TERMINE L’ENREGISTREMENT 
70 VTAB 20: PRINT “.../...": VTAB 20: H 
TAB 4: GET RS 
100 HGR : POKE 49234,0: HCOLOR= 3: ROT-= 
O: SCALE= ji 
110 TX = O 
120 GOSUB 10000:X0% = X%x:YO%x = Yx 
130 DRAW i AT XO%,YOx% 
135 PRINT 
140 GOSUB 20000 
150 TEXT : HOME 
160 VTAB 10: PRINT ‘VOULEZ-VOUS VERIFIE 
R'?%%2% GET RSS IE RS < > “CO AN 
D RS < > ‘“’"N' THEN PRINT CHRS «( 
7): GOTO 160 
170 IF RS = ‘"N'" GOTO 310 
180 HGR : POKE 49234,0: HCOLOR= 3 
190 FOR I = O TO TX - 1 
200 IF T%(O,I1) = O THEN HPLOT Tx%x(1,1), 
Tx(2,1): GOTO 222 
210 HPLOT TO Tx(1,1),T%(2,1I) 
222 NEXT I 
300 GET RS: TEXT 
310 HOME : PRINT ‘SAUVEGARDE DU TABLEAU 
SOUS FORME DE DATA‘: PRINT “RECU 
PERABLE PAR EXEC.": PRINT : PRIN 
T 
315 PRINT : PRINT ‘VOULEZ-VOUS SAUVEGAR 
DER ? ‘:: GET RS: IF RS <« >:2°07 
AND RS « > "N'" THEN PRINT CHRS 
(7): GOTO 315 
316 PRINT : IF RS = “N'" GOTO 610 
317 PRINT : INPUT “EN QUELLE LIGNE ? ‘: 
LI 
318 PRINT : INPUT ‘‘QUEL NOM POUR LE TEX 
TE ? ‘‘:NOMS: PRINT 
320 IF LEFTS C(NOMS,1) < ‘A OR LEFTS 
C(NOMS,1) > ‘2 THEN PRINT CHRS 
(7): GOTO 318 
9520 PRINT CHRS (4):'"OPEN ‘': NOMS 
530 PRINT CHRS (4) :"WRITE -'‘': NOMS 
540 TS = STRS (LI) + “DATA® + STRS (TX 
=) 1) ET ET O 
990:TS' = TS +0", 0% STRS (TX(O,1)2 + *”, 
RE STRS (T%x(1,1)) + “," + STRS 
CT%(2,1)) 
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560 IF LEN (TS) > 200 THEN PRINT TS:L 
I = LI + 1:TS = STRS (LI) + “DAT 
A‘: GOTO 530 
S70 I = I + 1° IF I > = TX THEN PRINT 
TS: GOTO 600 
580 GOTO S50 
590 I = I + 1: IF E < TX THEN TS = TS + 
STRS (T%(O,1)3 + *," + STRS (Tx 
€1,1))2 + “," + STRS (Tx(2,1)): G 
OTO 560 
600 PRINT CHRS (4) :"CLOSE ‘“:NOMS 
610 PRINT : PRINT ‘TERMINE. AU REVOIR. 
933 HIMEM: MM 
1000 END 
10000 X% = PDL (CO) / 255 » 279:Y% =  PD 
L C1) 7 255 »* 191: RETURN 
20000 IF PEEK (49152) > 127 GOTO 20020 
20010 GOSUB 10000: XDRAW 1 AT X0%,YO%:X 
O% = X%xX:YO%X = Y%x: XDRAW 1 AT XO%, 
YO: GOTO 20000 
20020 GET RS: IF R$ = CHRS (13) THEN 
RETURN 
20030 IF TX < N AND RS = “ “ THEN Tx(1, 
TX) = XOX:TXC2,TX) = VO%:T%X<O,TX) 
= O:TX = TX + 1: XDRAW 1 AT XO%, 
YO%: HPLOT XG%x,YO%: XDRAW 1 AT XO 
%,YO%x: GOTO 20000 
20040 IF TX > 1 AND RS = CHRS (8) THEN 
TX = TX - 1: HCOLOR= O: HPLOT Tx 
CL, TX: = 71), Tx(2, TX = 1), TO TACI,T 
X),T%X(2,TX): HCOLOR= 3: GOTO 2000 
Ô 
20050 IF TX < > © AND TX « N AND RS = 
CHRS (21) THEN T%(l,TX} = KXO%:Tx 
C2,TX) = YO%:T%XCO,TX) = 1:TX = TX 
+ 1: HPLOT T%x(1,TX - 22,T%x(2,TX 
- 2) TO XO0%,YO%: GOTO 20000 
20060 PRINT CHRS (7): POKE 49168,0: GO 


TO 20000 


Programme DESSINATEUR HGR 


10 


20 
30 
40 
50 
60 
70 
80 
30 


100 


101 


102 


pesssesss 
Less 


WT = 1: REM TEMPS DE PAUSE ENTRE LES 
POINTS 

HOME : HGR : POKE 49234,0: HCOLOR= 3 
READ N 

FOR J = O TO N: READ A,X,Y 

IF À = O THEN HPLOT X,Y: GOTO 70 
HPLOT TD X,Y 

FOR W = 1 TO WT: NEXT : NEXT 

PRINT CHRS (7) 

GET RS: HGR : TEXT : HOME : PRINT “ 

AU REVOIR.*': END 


DATA S57,0,79,72,1,76,61,1,79,51,1, 
839,40,1,89,55,1,86,62,1,79,74,0,8 
2,80,1,74,80,1.68,75,1,56,71,1,48 
172,1:38;76:ly 30,86:1: 24,96 1,24, 
106,1,25,116;:1,28,127,1,33,146,1, 
41,158,1,52,159,1,60,152,1,73,150 

DATA 1,83,154,1,86,158,1,94,158,1, 
103,452,1,110,139,1,115,122,1;,108 
,116,1,105,104,1,110,94,1,118,89, 
1,112,79,1,103,74,1,94,73,1,84,80 
,0,117,89,1,30,89,0,26,103,0,24,1 
03,1,105,103,0,108,116,1,25,116,0 
,293, 132 

DATA 1,111,131,0,107,147,1,35,147, 
0:05191,1:0:0:1:279,051,279, 1914 
,0,191,0,13,179,1,13,31,1,212,31, 
1,212,179,1,13,179,0,0,0 
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Datalite 





DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 


DATE 


Verbatim 


GS ETTTrES 





| 





- Certification unitaire 100 % sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 74". 
- 5 14!’ en 48 et 96 TPI, simple et double face. 


Importateur exclusif : BFI ELECTRONIQUE - 9 RUE YVART - 
75015 S: 
Tél. 533-01-37. 
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Deux méthodes sont a priori envisa- 
geables pour réaliser un programme 
de puzzle sur micro-ordinateur. La 
première serait une présentation des 
pièces morceau par morceau, en 
d’autres termes, l'Apple afficherait 
successivement de façon aléatoire 
chaque case du dessin et attendrait 
que le joueur la situe correctement 
sur l’otiginal. 


La seconde, qui vous est ici propo- 
sée, affiche l'ensemble des pièces 
mélangées et vous laïsse le soin de 
remettre les choses en ordre. 


Un premier conseil : ne vous laissez 
pas effraver par la difficulté appa- 
rente du problème. Le monde peut 
se reconstituer en moins de deux 
heures, je l’ai fait ! 


120 morceaux sont à remettre en 
place ; ce n’est pas la mer à boire. 
Aussi, pour corser la difficulté, l’Ap- 
ple va tester votre mémoire visuelle 
et votre sens de l'analyse en comp- 
tant soigneusement le nombre de vos 
recours au dessin original. Il ne vous 
laissera d’ailleurs que quelques se- 
condes pour l’observer et, lorsque le 
puzzle sera intégralement reconstitué, 
il vous gratifiera de quelques qualifi- 
catifs que vous aurez sans doute mé- 
rités et qu'il vous appartiendra d’in- 
terpréter. 


En ce qui conceme le programme 
lui-même, il n'y a que deux parties 
importantes : mélange des morceaux 
et affichage, puis attente des directi- 
ves du joueur. 


Mélange et affichage 


Le mélange et l'affichage se trouvent 
aux lignes 800 à 930 (ou 935 pour 
la couleur) du programme BASIC, 
qui renvoient aux lignes 100 à 140 
dans lesquelles est exécuté l'appel au 
sous-programme en langage-machine 
implanté de 8460 à 84C3. Ils utili- 
sent une zone de mémoire tampon 
située à l'adresse 17232 correspon- 
dant à l'adresse initiale d’un morceau 
d'écran placé en bas et à gauche sur 
la page HGR2. Une fois le méiange 
effectué, le traitement d'affichage 
prend le premier morceau d'écran 
qu'il met en mémoire tampon 
(17232), puis le second qu'il met à 
l'adresse du premier, puis le troi- 
sième qu’il met à la place du second, 
et ainsi de suite jusqu’au 120ème, 
après lequel il reprend le premier 
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Reconstituez le puzzle 


pour le mettre à l'adresse du 
120ème. La boucle étant ainsi bou- 
clée, c’est alors à vous de jouer. 


Attente des directives 


Les lignes 1000 à 1030 du pro- 
grammme cotrespondent à l'attente 
de vos directives. Les deux mor- 
ceaux qui se trouvent échangés par 
ces demières transitent toujours par 
la zone tampon et la routine en lan- 
gage-machine. 


Conception du 
programme 


Le programme peut traiter n'importe 
quel dessin enregistré sur disquette. 


Il utilise des modules en langage ma- 
chine dont vous trouverez plus loin La 
récapitulation et qui assurent les 
fonctions suivantes : 


1) Module ONNER-128 


- 300 à 309: routine de ONNER 
GOTO (cf page 124 du manuel de 
YApplesoft). 


- 304 à 32B : mise à zéro des octets 
qui sont à 128. Sans cette routine, le 
programme, qui fait pour sa part la 
différence entre les O et les 128, 
n'annoncerait jamais que le puzzle 
est entièrement reconstitué. 


2) Module TRANS 


- 8000 à 802B : transfert de la page 
HGR à la page HGR2. 


- 8030 à 8417 : shapes HGR conte- 
nant l'alphabet, les chiffres, le point, 
le point d'exclamation et l'étoile. 


- 8418 à 8443: comparaison des 
deux pages HGR, octet par octet, 
pour savoir si le puzzle est reconsti- 
tué. 


- 844D à 845F : musique. 


- 8460 à 84C3 : échange des mor- 
ceaux du puzzle. 


- 8500 à 872A : routine de charge- 
ment rapide de fichiers binaires de 
Jacques Tran-Van (cf Pom's 4). 


Remarques sur le programme en Ap- 
plesoft : 


- Ligne 100 : B1, B2, C1 et C2 sont 
les parties hautes et basses des 
adresses de début de chaque mor- 


Joël Lecoeur 


ceau du puzzle. Elles sont placées 
aux adresses 250, 251, 252 et 253 
pour la sous-routine d'échange des 
morceaux. 


- Ligne 300: cet échange nécessite 
une zone tampon, d’où les 3 appels 
à la sous-routine. 


- Ligne 400 : début du programme. 


- Ligne 498 : CALL —31488 lance le 
programme de chargement rapide. 


- Ligne 500 : c’est ici que commence 
le programme pour un nouveau des- 
sin. 


- Ligne 560 : appel du module de 
transfert d'image. 


- Ligne 600 : effacement des zones 
d'écran nécessaires et mise en place 
des coordonnées. Puis mise en place 
de l’image finie sur la page 1. 


- Lignes 800 à 930: mélange des 
morceaux et affichage. 


- Ligne 890 : adresse de début de la 
zone tampon. 


- Ligne 915: possibilité d’interrom- 
pre le programme pendant l'affichage 
par CTRL-Z. 


- Ligne 940 : effacement de la zone 
tampon sur HGR2. 


- Ligne 980 : affichage de l'étoile sur 
HGR. 


- Lignes 1000 à 1030: le pro- 
gramme attend 4 données représen- 
tant les coordonnées des pièces à 
échanger. Accessoirement, il traite les 
erreurs d'entrée, émet sons et clo- 
ches, et autorise le passage au dessin 
original ou aux règles du jeu. 


- Ligne 1040: transformation des 


coordonnées en numéros permettant 
la recherche des DATA correspon- 
dants. 


- Ligne 1100 : B(E1) et B(C1) sont 
les adresses des deux morceaux qui 
vont être échangés. 


- Ligne 1120 : effacement de l'étoile 
sur la page puzzle et effacement de 
la zone tampon sur ia page de l’origi- 
nal afin de voir si la reconstitution est 
terminée (CALL —31720). 


- Ligne 1150: remise en place de 
l'étoile. 

- Ligne 1160: si l'adresse 254 est à 
zéro, c'est gagné ! 


- Ligne 1200: flip-flop entre les deux 
pages. 


ERTEFTE AGE TE 
NÉE RRITET ET 


LEE TTP 
4x k 
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- Ligne 1210 : boucle d'attente pour 
l'observation de l'original. 


- Lignes 2000 à 2250 : traitement de 
la victoire. Ligne 2070 : impression 
du BRAVO... QUELLE PATIENCE 
fl. À partir de la ligne 2117 : qualifi- 
catifs musicaux traduisant l’apprécia- 
tion de l'ordinateur à l'égard de votre 
performance. 


- Lignes 2500 à 2710 : chaque varia- 
ble est une appréciation. 


- Ligne 3000 : règles du jeu, disponi- 
bles à tout moment. 


- Ligne 4000: affichage du titre et 
appel facultatif au règlement. 


- Lignes 10000 à 10090: ces 120 
nombres sont les adresses de début 
de chaque morceau du puæle. 


- Ligne 10100 : BRAVO … 


- Ligne 10500 : musique de la vic- 
tire. 


- Ligne 20000 : cette routine d'erreur 
vise principalement à traiter les er- 
reurs sur le nom des graphiques, ou 
les omissions de ma part... 


Pour que ce programme puisse fonc- 
tionner avec la couleur, si vous en 
disposez, quelques modifications sont 
nécessaires pour que le mélange des 
morceaux ne s'effectue qu'entre co- 
lonnes paires, ou impaires, sans inte-, 
raction entre les deux types de co- 
lonnes. 


Vous trouverez ci-après la liste des 
modifications en question, et je vous 
précise dès maintenant qu'elles nui- 
sent sensiblement à la rapidité d’exé- 
cution du programme. 





Programme PUZZLE 680 POKE - 16300,0 
690 CALL 32747 
800 FOR I = 1 TO 120: READ B(1) 
O LOMEM: 24576: HIMEM: - 32768 820 MI) = I 
1 ONERR GOTO 20000 830 NEXT 
2 HOME : INVERSE : VTAB 23: PRINT “Appu | 840 FOR I = 1 TO 120 
YEZ SUR UNE TOUCHE": NORMAL : POK | 850 N = € INT C RND C1 « 11933 + 1 
E 35,22 860 IF N = I THEN 850 
3 HOME : PRINT CHRS (4) "CATALOG" 870 T = MCID>:MCID = MCND:MCND = T 
4 WAIT - 16384,128: POKE - 16368,0 880 NEXT I 


5 POKE 35,24: HOME 
10 GOTO 400 


8930 TA = 17232 
8935 B = TA:C 


B{M(1)):: GOSUB 100 


100 Bi = INT (B / 256):B2 = B - p1 « 25| %00 FOR Z = 1 TO 119 

6 905 POKE 6,30 » ( COS ( SIN (Z))): POKE 
110 C1 = INT (C / 256):C2 = C - C1 » 25 PA GENS CPR ED I CANNES 

6 31667 
120 POKE 250,C2: POKE 251,C1 910 B = B(M(Z))2:C = B(MCZ + 19): GOSUB 1 
130 POKE 252,B2: POKE 253,B1 ae 
io Man Poe de CÉETUEN 915 IF PEEK ( - 16384) = 154 THEN TEX 
300 FOR I = 1 TO 3: GOSUB 100 Tr PSE ETES Sr OU ENT 
310 IF I = 1 THEN C = BP:B = B“ FA QUE Re 
350-118 1 & S THEN © 2 TAB = gp 330 B = B(M(120)):C = TA: GOSUB 100 
330 NEXT I: RETURN 940 POKE 230,64: HCOLOR= O: FOR I = 176 
400 HOME : TEXT TO 191: HPLOT O,I TO 21,1: NEXT 
498 PRINT CHRS (4)"BLOAD TRANS": CALL HCOEDRE RS IPRORE ASUS 

_- 31488 980 DRAW 37 AT 3,185 

4993 & “ONERR-128" 9385 POKE Es 16368,0 
500 DIM M(120),B(120) JA RTS 
517 GOSUB 4000 4 
S25 VTAB 12: INPUT “LE TITRE DU DESSIN Lors 

CHOISI. ..":TS 1005 IF A = 47 THEN GOSUB 3000: POKE 
530 HOME 7 16304,0 
540 POKE 233,128: POKE 232,48 1006 IF 2 = 1 AND {A = 26 OR A = 27 OR 
557 IF PEEK (812) > O THEN CALL 801 LR Ta EE" ne TOBRIE ON 
SO CALL | 242727 1008 IF A = 13 THEN I = O: FOR J = 1 Te 


565 POKE 230,32 


10: POKE 6,10 + I »* S: POKE 7,5: 


570 ROT= O: SCALE= 1 CALL -— 31667: NEXT J: GOTO 1030 
SS7 TPORE) 2 16297, 04 PÜRÈ) -16302.0:1p;) HOLOMLIF AT 32 THEN) COSUB 1209 

OKE - 16304,0: POKE - 16299,0 1020 IF A = 27 THEN CLEAR : RESTORE 
600 HCOLOR= © HOME TEXT : GOTO 500 
CLOS EOR ES TO) TU LS IHBLOT- 1,15 10: 1191) T0ES, ME ANS 26 MEN TENT SEEN 

1: NEXT 1026 IF I = 1 OR I = 3 THEN IF A « 65 
620 FOR I = 176 TO 191: HPLOT 13,1 TO 2 OR A > 76 THEN POKE 6,20: POKE 7 

79,1: NEXT ,30: CALL - 31667: FOR J = 1 TO 
630 J = 26: HCOLOR= 3 3: POKE 6,20: POKE 7,10: CALL - 
640 FOR I = 28 TO 172 STEP 16 31667: NEXT J:I = I - 1: GOTO 103 
650 J = J + 1: DRAW J AT 3,1: NEXT © 
655 J = 0 1027 IF Is OR I = 4 THEN IF À < 48 


660 FOR I = 22 TO 253 STEP 21 
670 J = J + 1: DRAW J AT I,185: 


== 
ctit+ 


sites 


NEXT 


véscersrereguyres: 
#4 sevées se rt 


OR À > 57 THEN 
30: CALL - 31667: FOR J = 1 TO 


POKE 6,25: POKE 7 
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3: POKE 6,25: POKE 7,10: CALL - 
31667: NEXT J:I = I - 1: GOTO 103 


Ô 
1023 POKE 6,30 + I »* 20: POKE 7,18: CAL 
L - 31667 


1030 NEXT I 

1040 FOR I = 1 TO 2 

1050 IF I = 2 THEN AS(1) = AS(3) 

1060 Al = ASC {AS(13) - 64 

1070 IF ? = 2 THEN E1 = Al + VAL (AS(4 
)} « 12: GOTO 1090 

1080 C1 = A1 + VAL CAS(2)2» » 12 

1090 NEXT ! 

1100 C = B(E1):BM = C:BP = B(C1):B = TA 

1110 GOSUB 300 

1120 HCOLOR= O: DRAW 37 AT 3,185 

1130 POKE 230,64: FOR I = 176 TO 191: H 
FLOT O,1 TO 21,1: NEXT : POKE 230 
» 32 

1140 CALL - 31720 

1150 HCOLOR= 3: DRAW 37 AT 3,185 

1160 IF PEEK (254) = O©O THEN 2000 

1170 GOTO 1000 

1200 IF GAGNE = 1 THEN POKE - 16299,0 


©: GET AS:A = ASC (AS): IF À = 27 
THEN 1020 

1202 IF GAGNE = 1 THEN 1230 

1205 POKE - 16299,0: POKE - 16368,0 


1210 FOR II = 1 TO BOUCLE: IF PEEK € - 
16384) > 128 THEN II - BOUCLE 


1215 IF PEEK € - 16384) - 1735 THEN GG 
SUS 3000: POKE - 16304,0 

1220 NEXT II 

1230 POKE - 16368,0: POKE - 16300,0:N 


B = NB + 1: RETURN 

2000 HCOLOR= O: FOR I = 1 TO 2: POKE 23 
0,32 » I 

2050 FOR J = 177 TO 191: HPLOT 13,J TO 
279,J: NEXT J 

2055 NEXT I: POKE 230,32: HCOLOR= 3 

2060 DIM BR(29): FOR I = 1 TO 29: READ 
BR(I) 

2070 DRAW BR(I) AT 14 + I « 8,185: NEXT 

I 

2110 2 2% 

2117 DIM C(31),D(31),E(31) 

2120 FOR I = 1 TO 31: READ C{I),D(I),EC 
1): NEXT I 

2130 FOR K = 1 TO 2 

2140 FOR I = 1 TO 31 

2150 POKE 6,C(I): POKE 7,D(I): CALL - 
31667 

2160 FOR J = O TO EtI): NEXT J,I 

2170 FOR J = 1 TO 500: NEXT J,K 

2200 POKE 230,64 

2202 IF NB = O THEN 2700 

2203 IF NB > 54 THEN 2710 

2210 ON INT (NB / 5) + 1 GOSUB 2500,25 
10,2520,2530,2540,2550,2560,2570, 
2580,2590,2600 

2220 FOR I = 1 TO LEN (AS) STEP 2 

2230 DRAW VAL € MIDS (AS,1I,2)} AT 18 + 

I * 4,185 

2240 NEXT I: POKE 230,32 

2250 GAGNE = 1: GOTO 1001 

2500 AS = “2215211940052005134012054016e 
80514092440393939": RETURN 

2510 A$ = “1509190501214004214016011801® 
4091939": RETURN 

2520 A$ = “06090518400315131305402114401 
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VOUS INVESTISSEZ EN 
MICROINFORMATIQUE, 


FAITES LE 
EFFICACEMENT. 


ous allez investir dans un ordinateur personnel. 


Vous voulez être guidé dans votre choix et garantir au 
maximum votre investissement. 


Vous voulez vous servirefficacement de votre ordinateur 
personnel et souhaitez une assistance soutenue et suivie tant sur 
le matériel que sur l'emploi des logiciels. 


MINIGRAPHE MICROINFORMATIQUE, créée à 
Boulogne-sur-Seine il y a trois ans par Jean-Louis Orsini, met à 
votre disposition un système d'assistance efficace qui vous per- 
mettra de réussir votre investissementet d'optimiser vos résultats. 


Téléphonez-lui, il vous donnera toutes les informations 
nécessaires. 


En nous rendant visite, 
vous pourrez voir 
fonctionner 

des logiciels 
performants sur nos 
ordinateurs personnels. 


MINIGRAPHE 
MICROINFORMATIQUE 


263, Boulevard Jean-Jaurès 92100 Boulogne 


608/44/31 


DB création 








D 


2530 


2540 


2550 


2560 


2570 


2580 


2590 


2600 


2700 


2710 


3000 


3020 
3040 


3950 


3069 


3070 


3072 


3075 


3080 


3090 


3100 


3110 


3120 


‘3130 


6011351439": RETURN 
AS = “1815092005120520333939": 
RN 
AS = “120140030907150714035400121401 
215140740020503393939": RETURN 
AS = “08091815140405121205401405400 
-601092040120540161809142005131619 
39": RETURN 
AS = “13010920180540031518020S501214 
0393939: RETURN 
85 = “120140161521120534001400601092 
040191514401505210639":; RETURN 
AS = "01401905180914393939401905180 
914400520400405130939'": RETURN 
AS = “01123521052020053939394010054 
0200540161221130518010939": RETUR 
N 
AS = "03080114204004214003250714053 
93939": RETURN 
AS = “3840031521031521393939391605S1 
81815172105204038‘: GOTO 2220 
AS = “168052009200540200520054004054 
01209141520200539‘": GOTO 2220 
TIS = ‘REGLES DU PUZZLE": HOME : VT 
AB 1: HTAB 12: INVERSE : PRINT TI 
$ 
POKE - 16368,0: VTAB 5 
PRINT "BARRE D’ESPACEMENT'": NORMAL 
: PRINT “ FLIP-FLOP ENTRE LE P 
U22LE ET L'ORIGINAL. (ECO 
NOMISEZ CE DERNIER, L'ORBINAT 
EUR VOUS EN TIENDRA COMPTE.)": PR 
INT 
INVERSE : 
PRINT “* 
ES QUE L’ON 
: PRINT 
INVERSE : 
INT * 
RINT 
INVERSE : 
PRINT * 
: PRINT 
INVERSE : PRINT ‘SLASH*: NORMAL : 
PRINT ‘“ PASSAGE DES REGLES AU P 
UZ2ZLE ET VICE ET VERSA." 
POKE - 16300,0: POKE - 
POKE - 16368,0 
VTAB 23: HTA8 15: 
LA PAGE S.V,P.)": 
28: HOME 
PEEK « - 
IF A = 
128: 


RETU 


PRINiÿ "RETURN": NORMAL : 
POUR ANNULER LES TOUCH 
VIENT DE FRAPPER." 


PRINT "ESC": NORMAL : PR 
CHANGEMENT DE DESSIN.": P 


PRINT "CTRL 2“: NORMAL 
MET FIN AU PROGRAMME. * 


16303,0: 


PRINT ‘"'C(TOURNEZ 
WAIT - 16384,1 


16384): POKE - 16368 
154 OR À - 1355 THEN A 
POKE 34,0: HOME : GOTO 


IF À = 175 THEN RETURN 
PRINT “ UNE ETOILE DANS LE COIN 
BAS A GAUCHE,INDIQUE LE PUZZLE."“*: 
PRINT “ RIEN, PAR CONTRE POUR 
L'ORIGINAL A RECONSTITUER.": PR 
INT 
PRINT “ CHAQUE MORCEAU DU PUZZLE 
EST UN PETITRECTANGLE QU’IL CONV 
IENT DE METTRE A SA PLACE, SAUF S 
I VOUS ETES UN EMULE DE PICASS 
is 2 PRINT 
PRINT *” IL SUFFIT POUR CELA DE D 
ESIGNER LE": PRINT ‘MORCEAU RECON 
NU AINSI QUE LA PLACE OU‘: PRINT 
“VOUS DESIREZ L’INSTALLER." 


pe 


26 


3140 


3150 


3160 


3170 


4000 
4020 


4030 


4032 


4040 


4050 


4055 
4060 


4070 
10000 


10010 


10020 


10030 


10040 


10050 


10060 


10070 


10080 


100930 


10100 


10500 


20000 
20005 


20010 


PRINT : PRINT *‘ POUR CE FAIRE, L 
E PRINCIPE EST CELUI‘: PRINT “DE 
LA BATAILLE NAVALE." 

PRINT : PRINT : PRINT * 

EXEMPLE DE DESIGNATION 
: HTA8 18: PRINT ‘F8C3" 

VTAB 23: PRINT ‘” (LE SLASH ’/° 
POUR LES REGLES)": WAIT - 16384, 
128: IF PEEK € - 16384) = 175 TH 
EN 3000 

POKE - 

RETURN 
TIS = "PUZZLE": L 

VTAB 3: HTAB 18 
TEST 

VTAB 1: HTAB 18 L / 2: PRINT 
#numwxæu#m#"> HTAB 18 - L / 2: PRINT 

+ «+: HTAB 18 - L / 2: V 
TAB 4: PRINT HTAB 1 
8 - L / 2: PRINT “xæumxxxsm“x" 
BS = ‘“N": POKE 812, ASC «BS) - 
GOTO 4040 
POKE 34,6: HOME : VTA8 12: HTAB 1: 
PRINT ‘’VOULEZ-VOUS LES REGLES DU 
JEU ? “;: GET AS: POKE 34,0 

IF AS = ‘"O" THEN GOSUB 3000: 
RN 

HTAB 1 
IF AS < > "“N" 


VOICI UN 
PRINT 


16368,0: POKE 34,0: HOME : 


LEN (TIS) 
L 7 2: PRINT 


fn 


“ … 
# # . 


67: 


RETU 


THEN VTAB 21: PRIN 
ÿ CE ‘AS ME CHATOUILLE LE CL 
AVIER, VOUS": PRINT “ETES TRES AI 
MABLE...‘®: FOR I = 1 TO 2000: NEX 
T I: POKE 34,15: HOME : POKE 34,0 
: GOTO 4040 

RETURN 
DATA 8450,8453,8456,8459,8462,846 
5,8468,8471,8474,8477,8480,8483 
DATA 8706,8709,8712,8715,8718,872 
1,8724,8727,8730,8733,8736,8739 
DATA 8362,8965,8968,8971,8974,897 
7,8980,8983,8986,8989,8992,8995 
DATA 8234,8237,8240,8243,8246,824 
9,8252,8255,8258,8261,8264,8267 
DATA 8430,8493,8496,8499,8S502,850 
5,8508,8511,8514,8517,83520,8523 
DATA 8746,8749,8752,8755,8758,876 
1,8764,8767,8770,8773,8776,8779 
DATA S3S002,3005,3008,9011,9014,901 
7, 3020,93023,3026,9029,9032, 93035 
DATA 8274,8277,8280,8283,8286,828 
9,8292,8295,8298,8301,8304,8307 
DATA 8530,8533,8536,8539,8S542,854 
5,8548,8SS1,8SS54,8557,8560,8563 
DATA 8786,8789,8792,8795,8798,880 
1,8804,8807,8810,8813,8816,8819 
DATA 2,18,1,22,15,33,39,39,39,40, 
17,21,5,12,12,5,40,16,1,20,9,S,14 
»3r5:38,38,38,38 
DATA 13,4,50,13,4,50,13,4,0,13,4,, 
0,13,4,0,13,4,0,13,4,0,13,4,0,13, 
4,0,13,4,70,13,4,0,13,4,0,13,4,0, 
13,4,0,13,4,0,13,4,0,13,4,0,13,4, 
0,13,4,0,13,4,0,13,4,0,13,4,500,1 
6,4,0,16,4,0,16,4,0,16,4,0,14,4,0 
»19,4,0,19,4,0,19,4,0,19,4,0 
CALL 768 
IF PEEK (222) «< 
: PRINT 
T : END 
VTAB 22: 


> 6 THEN HOME 
"“ERRARE HUMANUM EST": TEX 


HTAB 7: INVERSE : PRINT 
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IDENTIFIANT LES MORCEAUX FIGURA 


NT DANS LES COLONNES PAIRES SERON 


T RANGES DE M(1) A M(C60). 


LES COL 
IMPAIRES DE M(61) A M(120) 


IF I > 120 THEN 880 
K + 1:MCK) = 


LCI): NEXT 


1 TO 61 STEP 60: REM POUR 


EVITER QUE LE MORCEAU D’ADRESSE B 


CM(61)} NE VIENNE EN BCM(60)) IL 
VA FALLOIR TRAITER LES DEUX SOUS- 


ENSEMBLES SEPAREMENT. 


= B(MC(J)>): GOSUB 100: REM 


D’OU LE BOUBLE BOUCLAGE DES LIGNE 
S 8930 A 9335 
J TO 
BCM(Z - 1)}3:C = 


J + S8 
TA: GOSUB 100 


REM LIGNES 9SOS A 320 INCHA 


“CPAS DE DESSIN SOUS CE NOM)‘: NO 
RMAL : GOTO 525 
ILOAD ADAP-PUZZLE-COULEUR ONNES 
ILIST 865 
870 K = 
500 DIM M(120),B(120),L(120): REM LA V|880 TA = 17232 
ARIABLE L(N) SERT DE TAMPON 8930 FOR J = 
800 FOR I = 1 TO 120: READ B(I)D:L(I) = 
I: NEXT 
810 FOR I = 1 TO 120 
820 N = INT € RND (1) #* 119) + 1:N1 - 
ABS t€L(N) - L(I)D} / 2: REM LA CO | 895 B = TA:C 
NDITION N1>INT(N1) VA TESTER LA P 
ARITE DES NOMBRES CHERCHES 
830 IF N = I OR N1 > INT (N1) THEN 820 | 300 FOR 2 = 
840 T = L(I):L(I) = LIN):LCN) = T: NEXT 930 B - 
850 K = 60:J = O: FOR I = 1 TO 120 935 NEXT J: 
860 IF LCI) / 2 = INT (L(I) / 2) THEN NGEES 
J = J + 1:M(J) = LCI): NEXT : REM | 4032 BSs = “C*: 


LIGNES 850 A 870 


Le bruit du chargement 
d'images basse résolu- 
tion 


Lors du chargement d'images basse 
résolution tels que les masques de 
MENU sur les disquettes de Pom's 
antérieures au numéro 9, on constate 
certains bruit inquiétant” de la 
part du lecteur. Cela vient du fait 
que la page texte occupe l’emplace- 
ment $400-$7FF en laissant 64 
octets libres (cf. ‘Les adresses du 
graphique” - Pom's 1). EH se trouve 


Programme ONERR:-128 


+300, B 


0200- 68 AB 68 A6 DF 9R 48 98 
0508- 48 60 A2 20 AC 00 Bi 58 
0310- C3 80 DO 04 A9 00 91 54 
0318- 88 00 F3 E6 99 CA DO EC 
0320- 60 A3 00 85 58 A9 20 85 
0328- 59 &C OA 03 


Programme TRANS 


Contient le programme de 
chargement rapide de Jac- 


ques Tran Van (Pom's 4) 
en 8500 - 872A 


#8000,872A 








8000- B1 58 91 SA 88 DO F9 E6 
6008- 53 £6 5B CA 30 06 DO F0 
8010- AO 00 DO EC 60 A9 00 85 
8018- 58 A9 20 85 59 A9 00 85 


Pom'sn°9 


= LES NOMBRES 


que les péiphériques et le DOS util- 
sent ces adresses à leur quise, et c’est 
ainsi que $478 contient le numéro 
de piste et force donc le ”recali- 
brage” du bras. 


La solution, appliquée à partir du 
Porm's 9 sur les disquettes d’accom- 
pagnement, consiste à BLOADer la 
routine relogeable ci-dessous, puis 
BLOADer le masque désiré en 
$6000 et enfin à faire ’CALL 768” 
pour exécuter la routine de charge- 
ment. Cette routine permet de dépla- 
cer une zone de $400 octets vers la 


8020- 5A 47 40 85 5B A2 20 AC 
8028- 00 4C 00 89 00 00 00 00 
8030- 28 00 64 00 7C 00 97 00 
8038- Æ 00 C3 00 DD 00 EF 00 
8040- 09 01 21 01 30 01 40 01 
BQ4B- SE 01 6E 01 86 01 Æ O1 
8050- B5 01 C5 01 E2 O1 FA 01 
8058- 13 02 23 02 3D 02 59 02 
8060- 77 02 97 02 AD 02 CS 02 
8068- EQ 02 EE 02 07 O3 ïF OS 
8070- 35 03 4D 03 65 03 75 03 
8078- 90 03 À6 03 DA 03 E2 OS 
8080- £4 03 00 00 00 00 00 00 
8088- 00 00 00 00 00 00 00 00 
8090- 00 00 00 00 04 04 04 04 
8098- 04 01 04 01 0 O1 06 01 
80R0- 06 06 07 07 07 05 05 05 
80h8- 06 06 06 00 05 05 05 04 
80B0- 01 04 04 03 04 01 04 04 
8088- 03 07 07 07 06 06 06 0 
80C0- 05 07 07 06 06 06 00 01 
80C8- 05 05 04 01 06 03 07 07 
80D9- 04 03 04 04 04 04 04 01 


REM SUITE DE LA LIGNE 4 


032 INCHANGEE 


page texte sans toucher aux adresses 
réservées. 


La zone de départ est ici $6000, 
mais on peut la changer en $XY00 
en mettant la valeur $XY-4 en 
$30E. 


Remarque : il est souhaitable de faire 
suivre le CALL 768 d’un HTAB et 
d'un VTAB. 


Merci à Thierry Le Tallec et Oli- 
vier Herz pour l'analyse et la résolu- 
tion du problème. 


80D8- 05 05 06 01 06 00 04 04 
80E0- 04 04 04 04 05 05 05 06 
80E8- 01 06 06 06 06 06 03 07 
80F0- 07 07 00 05 05 05 05 07 
89F8- 07 07 07 04 O4 04 05 05 
8100- 05 07 07 07 O4 04 04 05 
8198- 05 05 05 05 00 04 04 4 
8110- 05 05 05 07 07 07 04 O4 
8118- 04 05 05 05 05 05 00 0! 
8120- 05 05 05 04 04 07 05 06 
8128- 06 07 07 07 04 03 04 04 
8130- 04 04 O4 01 05 05 05 05 
8138- 00 04 04 04 04 04 04 06 
8140- 06 06 05 05 05 05 04 04 
8148- 04 06 06 06 06 06 06 06 
8150- 00 01 05 05 07 04 04 04 
8158- O4 04 04 05 07 07 07 00 
8160- 01 04 03 06 01 05 05 04 
8168- 01 04 O4 O4 04 04 04 00 
8170- 04 O4 04 O4 04 04 06 06 
8178- 06 05 04 01 04 01 04 O1 
8180- 06 03 06 03 06 05 06 01 
8188- 06 O1 06 01 06 00 05 05 




















STOSEETINTTS 
AlsthyAe rm! 





8190- (5 05 07 07 07 07 04 O4 
B198- 04 04 04 04 04 00 04 Où 
810- 04 04 O4 04 06 01 06 O1 
81RB- 06 O4 O4 01 04 O1 06 06 
81B0- 06 06 06 06 06 00 04 04 
81B8- 04 O4 04 04 06 06 01 06 
8iC0- 01 06 01 06 O1 06 04 04 
81C8- 04 04 04 04 04 00 O1 
81D0- OS 04 01 04 04 O4 04 04 
81D8- 03 07 07 06 05 06 06 06 
81E0- 06 06 00 04 04 04 04 04 
81E8- 04 05 05 05 06 01 06 06 
81F0- 05 07 07 07 00 01 05 04 
81FB- 01 O4 03 06 01 06 O1 04 
&200- 03 04 01 04 04 04 04 03 
8208- 07 07 06 03 06 06 06 06 
8210- 06 00 O4 O4 O4 O4 O4 04 
B218- 05 05 05 06 O1 06 06 08 
8220- 07 07 06 01 06 01 06 O1 
8228- 06 00 01 04 03 06 01 05 
8230- 05 04 01 04 04 03 07 07 
4238- 04 03 04 04 O1 05 05 06 
8240- O1 06 00 O1 O1 O4 O4 04 
6248- 04 O4 O4 07 07 05 05 & 
8250- 05 05 00 01 04 05 04 4 
8258- 04 04 04 06 06 06 06 06 
8260- 06 01 05 05 04 01 04 04 
8268- 04 04 04 04 00 01 O1 
8270- 03 O4 03 O4 O4 04 04 06 
8278- 06 06 06 06 01 06 01 O4 
82B0- O1 O4 01 O4 O4 04 04 04 
6288- 00 O4 04 O4 O4 04 04 06 
4290- 06 06 06 06 06 04 01 4 
8238- 01 04 06 06 O1 06 01 04 
82A0- 04 04 04 04 04 04 00 04 
82A8- O4 O1 O4 01 O4 01 04 O1 
6280- 04 06 06 03 06 03 06 01 
6288- 06 01 06 04 O4 03 04 03 
6200- 04 03 O4 03 O4 04 00 01 
82C8- 01 04 04 04 04 03 04 OS 
8290- 04 06 06 01 06 O1 04 01 
@2D8- 04 01 04 04 00 05 05 05 
82Æ0- 05 07 07 07 07 04 O4 01 
828 04 01 04 O1 04 01 04 07 
62F0- 07 07 07 07 00 O1 05 05 
82F8- 04 01 04 04 O4 04 04 03 
8300- 07 07 06 03 06 06 06 06 
6308- 04 01 O4 O1 04 O1 04 00 
8510- 01 05 05 07 04 04 04 04 
8318- 04 04 06 05 06 00 05 05 
8320- 05 05 07 07 07 07 04 4 
8324- 01 04 01 05 04 01 04 O4 
8330- 03 07 07 06 03 06 00 01 
8338- 04 03 06 01 05 05 04 O1 
8340- 04 04 05 07 04 01 04 O1 
8348- 04 07 07 07 07 07 00 O1 
8350- 01 01 04 04 O4 O4 04 O4 
B358- 06 03 06 03 06 03 06 05 
8360- 05 05 05 05 00 01 04 05 
8368- 06 01 05 05 04 01 04 04 


8370-04 03 07 07 07 O4 O4 05 
8378- 05 05 05 05 00 01 05 05 
8380- 04 O1 04 04 03 07 07 07 
8388- 06 06 04 04 O4 O4 O1 O4 
8390- 01 05 05 05 00 O1 04 O4 
8398- 04 01 04 O1 04 01 04 O7 
83%0- 07 07 07 07 00 O1 05 05 
83R8- 04 O1 04 O4 03 04 O1 04 
85B0- 04 03 07 07 06 03 06 06 
83B8- 01 05 07 06 03 06 06 00 
83C0- 05 05 04 O1 04 01 04 O4 
83C8- 04 04 03 07 07 06 03 06 
85D0- 06 01 05 05 05 00 0€ OC 
83D8- 0C 0C OC 0C 17 17 17 Œ 
83E0- E 0€ 1C 1C 1C IC C 1C 
83E8- 0€ 0€ 0€ 05 05 05 05 07 
83F0- 07 07 07 07 07 07 07 05 
8SF8- 05 05 05 04 04 04 04 06 
8400- 06 06 06 06 06 06 06 06 
8408- OC 00 04 80 04 04 04 04 
8410- 04 00 05 00 00 00 00 00 
8418- A9 00 85 FA 85 FC 85 FE 
8420- A9 20 85 FB A9 40 85 FD 
8428- A2 20 A0 00 Bi FA D1 FC 
8430- DO 0D 88 DO F7 EG FB E6 
8438- FD CA 30 02 DO EE 60 A9 
8440- 01 85 FE 60 00 00 00 00 
8448- 00 00 00 00 00 AD 30 C0 
8450- 88 DO 04 C6 07 FO 08 CA 
8458- DO F6 A6 06 4C 4D 84 60 
8660- A5 FA BS SA 85 SC AS FB 
8668- 65 SA 85 FE AS FC 85 58 
8470- 65 SD AS FD 85 53 85 FF 
8478- A9 02 85 08 EA A2 08 A0 
8480- 02 B1 FA 91 FC 88 DO F9 
BABB- Bi FA 91 FC A9 04 65 58 
8490- 85 58 85 FB A9 04 65 39 
8498- 85 59 85 FD CR DO EO A9 
8BAO- 80 65 SA 5 FA A9 80 65 
84AS- 5B 85 FC A5 FE 85 58 85 
8480- FB AS FF 85 59 85 FD AS 
84Bg- SC 8S SA A5 SD 85 5B 
8ACO- 08 DO BA 60 00 00 FF FF 
GACS- FF FF FF FF FF FF FF FF 
8400- FF FF FF FF FF FF FF FF 
B4D8- FF FF FF FF FF FF FF FF 
SéEO- FF FF FF FF FF FF FF FF 
B4ES- FF FF FF FF FF FF FF FF 
8éFO- FF FF FF FFFFFFFF FF 
84FB- FF FF FF FF FFFFFF FF 
8500- A9 00 8D F6 03 A9 9B 8D 
8508- F7 03 A9 4C 8D F5 03 2 
8510- 00 ED 28 85 D 00 JB ES 
8518- DO F7 ED 28 86 9D 00 SC 
852- E8 DO F7 A9 SA D O1 9D 
89e8- 4C DA A7 AS 1E 8D AC M 
8530- A5 1F 8D AD AA 20 B7 00 
8S38- C9 22 DO 28 A9 06 85 C1 
8540- A0 00 8C EB B7 20 Bi 00 
8548- C9 22 FO OC 09 80 99 75 


6550- AA CB C0 1E 90 EF B0 34 
6598- A9 EF 85 C1 20 B1 00 C0 
8560- 00 DO 4C 60 RS B3 48 A5 
6568- B9 68 20 7B DD 24 11 30 
6570- 08 A2 A3 20 F5 ŒÆ 40 12 
8578- D4 68 85 89 68 85 88 20 
6580- ES DF 85 1E 84 1F A0 00 
8988- Bi 1E DO 05 À2 0B 4C 
8530- 9C 8D AB AA CA B1 iE 68 
8538- C8 B1 1E 85 1F 68 85 1E 
8SAO- RO 00 B1 1E 09 80 99 75 
BSAB- AA CB CC AB AA DO F3 A9 
65B0- A0 93 75 AA C8 CO 1E D0 
65B8- F8 80 BO AA 20 F5 JC 20 
85C0- B7 00 FO 12 20 BE DE 20 
85C8- 67 DD 20 52 E7 AS 51 C9 
8500- 02 90 B9 4E BO AR A9 01 
6SD8- BD F4 B7 A9 10 8D ED B7 
85E0- A9 11 8D BC 87 20 E6 
8&8- CE ED B7 FO 46 20 CB & 
85F0- AO EB BC AE AA AD ÀÆE MA 
85F8- 18 69 23 AG AD ÀE AA C9 
8600- 03 FO ES A2 00 E9 B8 B3 
8608- FO 23 DD 75 AA DO E6 C8 
8610- EB EQ 1E DO FO B9 SC ES 
8618- 29 04 DO 04 A2 OD DO 15 
8620- AC RE AA B9 B9 B3 8D ED 
8628- B7 B9 B8 B3 50 C7 8D EC 
8630- B7 DO OE A2 06 8E SC M 
8638- 20 F5 9C 20 93 FE 4C 25 
6640- A6 8D AF AA 20 CB TL A2 
8648- OC ÀS IE A4 1F 20 EE SC 
8650- AD FF AA FO 03 20 ERA 
8658- 20 BB 9C AD & AA FO 49 
6660- 2C BO AA 30 OA ÀS 50 D 
8668- BB 84 AS 51 8D BC B4 3 
8670- AD BB B4 E9 04 85 iE 8D 
8678- FO B7 AD BC Bä E9 00 85 
8680- 1F 8D F1 B7 A9 04 8D DA 
86B8- 9C 18 6D BD B4 BD AB MA 
8690- A9 00 8D E2 JC 8D FF PA 
8698- AD C9 B3 F0 Z2 À D3 Æ 
B6AO- AE RE AA FE F1 B7 E6 1F 
G6R8- EB EO FE BO iD BD BD & 
66B0- DO A6 20 EA 9C 20 BB 
86B8- A9 00 85 68 8D DR JC AD 
86C0- AB AA 8D Be SC 20 D9 
86C8- FO 56 AD BC B3 FO E3 20 
86D0- EB 9C AD 8D B3 8D ED 87 
8608- E6 1F 20 E6 9C AD BC BS 
86EO- 8D EC B7 4C 19 9C 8D BB 
B6E8- BS 6D EC B7 E8 BD BB BS 
86FO- 8D ED B7 8E AE AA A9 87 
G6F8- AO EB 20 BS B7 90 11 A2 
8700- 08 4C OR SC A0 00 B9 BB 
8708- B4 91 1E C8 C0 00 DO F6 
8710- 60 A0 83 DO 02 AO 84 A9 
8718- 8B 8D FO B7 8C F1 B? 60 
8720- AD AC AA 85 1E AD AD FA 
8728- 65 1F 60 


Pom's n° 9 





Les documentations de Visicalc, Mul- 
tiplan et Applewiiter ne sont pas to- 
talement claires (ha ha !) quant à la 
façon dont doivent être fournis les 
caractères de contrôle permettant de 
passer d'un mode d'impression à 
l'autre, I nous a semblé utile de faire 
le point sur l'envoi de ces caractères. 


Le tableau ci-contre, reproduit à par- 
ti de la documentation d'Omnis 
(merci, KA), récapitule les principaux 
codes ASCII, en représentation déci- 
male, à envoyer aux principales im- 
primantes du commerce pour attein- 
dre des objectifs courants. 


Ainsi, avec une Oki 92 (Microline), 
on passe en mode qualité counier 
avec les caractères 27 et 49. 
Comment faut-il faire pour engendrer 
ces caractères ? Nous allons vous le 
montrer … 


Impression Visicalc 


Remarque : comme dans le livre “Vi- 
sicalc sur Apple”, un texte souligné 
signifie ici qu'il s’agit d’une touche à 
enfoncer et non d’un texte à entrer. 
Ainsi, RETURN signifie qu'il faut en 
foncer la touche RETURN. 





L'insertion de caractères de contrôle 
destinés à l'imprimante s'appelle 
SETUP STRING: elle doit avoir lieu 
après la spécification du slot de l’im- 
primante. Pour me mettre en qualité 
courrier avec Visicalc, il me suffit de 
faire : 


/P1 RETURN ”AHIBAH31 RE- 
TURN Xy RETURN 


Les guillemets indiquent le début des 
caractères de contrôle. 


Le symbole ” A” annonce qu’un ca- 
ractère de contrôle suit. 


HI1B signifie : caractère Hollerith de 
valeur 1B {(1B=16+11=27 en repré- 
sentation hexadécimale). 


De la même façon, H31 correspond 
au caractère de code hexa 31, donc 
de code décimal 49. 


Xy sont les coordonnées de la case 
en bas et à droite de la zone à impri- 
mer. 


Une autre solution consite à utiliser, 
par exemple pour limiter l’impression 
à 60 colonnes avec ”’CTRL:-I 6ON”, 
la représentation suivante : 
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Donnez du caractère 
à votre imprimante 


Hervé Thiriez 


MODELE IMPRIMANTE 


























- N/D signifie Non-Disponible 


*La qualité courrier sur l'imprimante Microline 84 utilise l'espacement 


proportionnel. 





{PI RETURN ” CI6ON 


où ” C” signifie que le caractère sui- 
vant est un caractère de contrôle. De 
la même façon, ” E” signifie la tou- 
che ESC et ” R” la touche RETURN. 


Le problème avec Visicalc, c'est que 
l'on ne peut modifier le mode d’im- 
pression en cours d'impression. La 
SETUP STRING peut seulement être 
définre au moment où une impres- 
sion est lancée. 


Impression Multiplan 


Au moment où j'écris cet article, je 
n'ai pas encore reçu la version fran- 
çalse de Multiplan, mes remarques 
concernent par conséquent la version 
US de ce programme pour l’Ap- 
ple //e. On parvient à la définition du 
SETUP en entrant la séquence ‘PO 
TAB” pour Printer, Options et 
la touche de tabulation qu posi- 
tionne sur la rubrique SETUP. fi m'a 
par contre été impossible de trouver 
dans la documentation ou dans la 
fonction HELP le mode d'emploi du 
SETUP. 


EU m'a fallu lire la documentation du 
Multiplan IBM PC pour comprendre 
comment il faudrait faire pour obtenir 
sur Apple le résultat escompté ! 





Une fois le curseur positionné sur la 
rubrique SETUP, pour passer le ta- 
bleau en qualité courtier avec une 
Oki 92, il faut entrer la chaîne : 


Al 


et surtout ne pas enfoncer simultané- 
ment la touche CTRE, sinon l’on re- 
vient au menu. 


Le signe d'exponentiation, comme 
dans Visicalc, annonce la venue de 
caractères de contrôle. Par contre, 
dans Visicalc, il faut mettre ce sym- 
bole avant chaque caractère de 
contrôle. Ici, il faut le mettre unique- 
ment au début de la chaîne. 


Comment pouvait-on deviner qu'il 
fallait utiliser les touches ”!” et ”1” ? 
Eh bien, ce n'était pas difficle si vous 
aviez sous les veux la page 42 du 
Pom's 4 (ou la page 185 du Recueil. 
On vy trouve un tableau qu montre 
que le caractère de contrôle (avec 1 
dans la colonne écran) ”!” corres- 
pond au code ASCII de valeur déci- 
male 27 ou hexa 1B. De même, le 
caractère de contrôle 1 a la valeur 
décimale 49 et la valeur hexa 31. 


Nous regrettons de ne pouvoir repro- 
duire ici le précieux tableau des 
codes ASCII publié dans le Pom's 4, 




















mais il y en a cinq pages pleines, et 
cela ferait trop de redondance. Le re- 
cueil et le numéro 4 seul sont tou- 
jours disponibles (voir les bons de 
commande dans la revue). 


Ce qui est agréable avec Multiplan, 
par rappoit à Visicaic, c'est qu'une 
fois la chaîne de SETUP définie, il 
n'est plus nécessaire de la réentrer à 
chaque impression. 


Impression Applewriter 


Nous parlons ici d'Applewiiter Il ou 
lle, qui permettent l'insertion dans le 
texte de caractères de contrêle. On 
peut facilement, dans un texte, mé- 
langer différentes polices et tailles de 
caractères. Il faut toutefois veiller à 
modifier éventuellement les marges 
de gauche ou de droite et les cadra- 
ges pour obtenir une présentation 
agréable à l'oeil. 


L'introduction de caractères de 
contrôle dans le texte doit débuter et 
terminer par CTRL-V : la lettre V en- 
foncée pendant que ja touche CTRL 
est maintenue enfoncée. Le passage 
en qualité courrier pendant un texte 
nécessite ainsi l'entrée de la chaîne : 


TRAITEMENT DE TEXTES 
ASTUCIEUX 


e Progiciel pour APPLE li, //e 


“MAGIC WINDOW Ii” 


Pauses en x/10 de seconde 


USES APPLESTUFF 


(# DUREE EN 1/10 DE SBCONDE #) 


PROCEDURE WA1T(DUREE :INTIRSE R) ; 


VAR 1,J:INTSGER: 
COM: 
BEGIN 
FOR 1:21 TD OUREE 90 
BEGIN 
FOR J:=1 T0 74 DO 
BEGIN 
IF KEYPRESS 
THEN BEGIN 
READ(KEYBONRD,C): 
EXIT(WAIT) : 
80; 
ED; 
END; 
END: {# WAIT à) 


Philippe Chemin 


CTRL-V CTRL{ CTRL-1 CTRL-V 


Par contre, lorsqu'on travaillé avec 
Applewriter //e version françarse, on 
utilise en général le clavier en mode 
Azerty. Dans ce cas, il n’y a plus de 
caractère ‘{”. Voici donc, pour trois 
caractères de commande d'impri- 
mante non disponibles sur le clavier 
français, la correspondance : 


Code Clavier Clavier 
ASCII US français 
27 É } 
28 \ Ç 
29 ] $ 


En mode US comme en mode fran- 
çais, la touche CTRL doit rester en- 
foncée pendant que le caractère ci- 
dessus est frappé. 


Nous parlerons plus en détail d’Ap- 
pleuriiter //e version française dans le 
numéro de décembre. Je n’ai en ce 
moment qu’une version de travail in- 
complète de ce programme, sans do- 
cumentation, en attendant le produit 
fini qui devrait sortir avant la paru- 
tion de ce numéro. 


IMPRIMANTES A DOUBLE EMPLOI 


à marguerites 
de 6000 F à 13000 Fttc 


(AUTOTEXTE: version française) 
- Affiche 70 colonnes sans carte ‘88 
- Affiche 80 colonnes avec carte ‘‘86" 


- Affiche bientôt 132 colonnes! 
- 160 colonnes en ligne 
{par déplacement d'écran) 


- Reproduction exacte sur écran de la feuille imprimée 


1795 F ttc (AUTOTEXTE en français) 


“© SYSTEME OPERATIONNEL pour moins de 25000 F ttc 
{Imprimante + APPLE //e + Progiciel AUTOTEXTE) 


e Documentation technique et tarif sur demande 


Votre APPLE I! Europlus a un clavier QAWERTY? 
TRANSFORMEZ-LE EN CLAVIER FRANÇAIS accentué 
au prix exceptionnel de 1050 F ttc au tieu de 2100 F ttc 
{iusqu'à épuisementdu stock) grâce au KIT ‘CLAVIER AZERTY” 
utilisant le puissant ENHANCER li de VIDEX 

mondialement connu et conçu pour voire clavier. 


Envoyez votre chèque à ORDINATEUR EXPRESS - 3, rue Pelouze, 75008 PARIS (522.15.15) 
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Super-impression de chaînes 


SÜPER PRINT est un programme 
qui permet d'afficher un texte sans 
couper les mok ni les nombres en fin 
de ligne, en conservant tous les for- 
mats et options de la commande 
PRINT usuelie, avec la même syn- 
txe précédée de l'ampersand. Pou- 
voir améliorer l'affichage sans mani- 
pulation laborieuse des instructions 
PRINT, tel est son intérêt essentiel. 


En outre, il est relogeable et, pou- 
vant même s’insérer dans la page 3, 
il s'emploie conjointement avec d’au- 
tres routines. 


Utilisation du 
programme 


Si l'on connait la syntaxe de l’instruc- 
tion PRINT, on connait celle de 
SUPER PRINT, la seule différence 
tenant à la présence de l’ampersand. 


L'nitialisation de l'ampersand se fait 
‘ quelle que soit l'adresse de charge- 
ment du programme grâce à une 
HEURE particulière expliquée plus 
oin. 


Pour être plus compréhensible, le lis- 
ting du programme est commenté au 
début de chaque procédure. Il est 
élaboré selon des principes assez 
simples et ne se complique guère 
que pour reprendre les options ordi- 
naires de l'instruction PRINT (”:” ”,” 
et commandes composées). 


Pour que "&” pointe à l'adresse où 
le programme sera chargé en mé- 
moire quelle que soit cette adresse, 
on effectue un saut nul sur un RTS 
dans le moniteur avec pour effet de 
sauver dans la pile l'adresse de dé- 
part du JSR (voir à ce sujet la page 
81 du Manuel de Référence de l’Ap- 
ple Il pour plus de précisions). 


L'adresse obtenue est lue directe- 
ment dans la pile grâce äux instruc- 
tions : 

TSX 

DEX 

LDA $i00,X (partie basse) 

LDA $101,X (partie haute) 


On ajoute à ce résultat le nombre 
d'octek qui sépare le JSR du début 
de la procédure de SUPER PRINT et 
la somme obtenue est placée en 
$3F6-$3F7, adresse du vecteur 
d'ampersand. 
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Traitement d’un nombre 
ou d’une variable numé- 
rique 


SÜPER PRINT vient à la rescousse 
auséi bien des nombres coupés en 
deux par la limite d'écran que des 
chaînes de caractères. 


La routine qui affiche ordinairement 
les nombres en Applesoft se situe à 
l'adresse $ED2E (PRNTFAC) et se 
compose de deux simples appels, le 
premier à FOUT ($ED34) qui trans- 
forme le FAC en une chaîne de ca- 
ractères copiée en $100-—-$101 (le 
FPBUF) et terminée par un 0, le se- 
cond à STROUT ($DB3A) qui affi- 
che une chaîne pointée par Y—A et 
terminée par 0 ou ” 


La procédure réutilise ces deux 
appels mais insère entre les deux une 
routine qui calcule le nombre de chif- 
fres avant le O dans le FPBUF, le 
compare à l'intervalle entre la posi- 
tion courante et la limite d’écran 
(pointées par $24 et $21) et effectue 
un RETURN si l'espace est insuffi- 
sant. 


Traitement d’une chaîne 
de caractères 


Le programme procède en décou- 
pant la largeur de lécran, telle 
qu'elle est définie par les pointeurs 
de fenêtre, sur la chaîne à afficher, 
du début jusqu'à la dernière partie. 


L'intervalie qui est ainsi pris sur la 
chaîne a la position de début indi- 
quée dans DEBLIGN et la position 
de fin dans FINLIGN. Après recher- 
che d’un espace et affichage, DE- 
BLIGN pointera sur le début du der- 
nier mot de l'intervalle, qui sera 
affiché avec un nouvel intervalle s’il 
est coupé par FINLIGN. 


La procédure d'affichage teste après 
chaque caractère la fin de la chaîne 
avant la fin de l'intervalle à afficher. 
Un test sur cette longueur précédant 
le travail de découpage permet de 
sauter” celui-ci lorsque l’on arrive à 
la demière partie de la chaîne. 


La procédure de découpage, partant 
donc de la position de la chaîne qui 
correspond à la marge droite sur 
l'écran, indiquée dans FINLIGN, re- 
Vient sur la gauche à la recherche du 
premier espace et en place la posi- 


Denis Sureau 


tion dans FINLIGN. Si aucun espace 
n'est présent dans la chaîne, soit on 
saute à la ligne si le début d’impres- 
Sion ne correspond pas au début 
d'écran (cas d’un HTAB XX), soit on 
force l'impression de la chaîne cou- 
pée (à l'impossible, nul n'est tenu). 


»»,99 2» 59 


Les séparateurs ”; ’ 
et 59 


Les routines CHRGET et CHRGOT 
demandent à être employées ici avec 
précision car le listing de l'Applesoft, 
mêlant des fonctions diverses en ce 
qui concerne les séparateurs, n’est en 
fait d'aucun secours. Je me bomerai 
à décrire le minimum nécessaire à la 
compréhension du programme {une 
étude très approfondie sur CHRGET 
a été publiée dans le numéro de 
mars 1982 de CALL APPLE, suff- 
samment complète pour indiquer 
comment améliorer de quelques mil- 
lisecondes cette procédure !). 


CHRGET incrémente le pointeur de 
programme TXTPTR en testant le 
caractère lu sur la nouvelle position. 
S'il s'agit de O (marqueur de fin de 
ligne) ou du séparateur d'instructions 
”.”, l'indicateur Z est mis à 1; si c'est 
un chiffre, l'indicateur C est mis à C. 


CHRGOT produit le même résultat, 
mais teste la position courante poin- 
tée par TXTPTR sans l’incrémenter. 


Aussi après analyse et affichage 
d'une variable ou d’un chiffre {re- 
connu grâce à l'indicateur C), le pro- 
gramme branche sur CHRGOT plu- 
tôt que sur CHRGET, car la routine 
Applesoft utilisée, FRMEVL, laissera 
le TXTPTR pointé sur le dernier ca- 
ractère utile, soit ”$”, ”%”, 0”, ””, 
er ou A , 

Dans le cas de la virgule, on se bran- 
che sur une routine similaire à celle 
de lApplesoft, puis sur CHRGET 
non suivi de RETURN. S'il s’agit 
d'un point-virgule, on effectue un 
appel à CHRGET non suivi de RE- 
TURN, lequel n’est effectué qu’en fin 
de commande et lorsque le dernier 
caractère de celle-ci est différent des 
deux précédents. 


Tous les formats de la commande 
PRINT restent valides, avec une limi- 
tation pour les textes entre quillemets 
qui ne doivent pas être trop nom- 
breux sur une même commande ou 
à l’intérieur d’une boucle. 


+1 
+? 


CRSETRESNILISE 


DRE TA ES 


31 
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Programme SUPER PRINT DEMO 










10 PRINT CHRS (4)'""BRUN SUPER PRINT" 
20 HOME 
30 PRINT ,/'SUPER PRINT" 
40 PRINT ,'"PAR D. SUREAU": PRINT + 
50 AS = “PRINT ‘‘ 
60 FOR I = 1 TO 10: PRINT AS:'"ORDINAIRE 
70 BS = BS + ‘'AMPER “ + AS = 
80 NEXT :CS = “SUPER ‘ 
30 PRINT : & PRINT BS: PRINT 
100 FOR I = i TO 10 
110 & PRINT CS$S:AS: 
120 NEXT : PRINT 
130 PRINT AS:;:" AVEC COMPOSITION DE TEXT 
E,CHIFFRE,",12345;:" ET VARIABLES 
"-A%x,A 
140 & PRINT AS:" SUPER AVEC COMPOSITIO 7 
N DE TEXTE,CHIFFRE,",12345:" ET V 7 + 
ARIABLES ‘":A%,A 
À HER EEE 92 
2# SUDER 53 # FIN DE COMMANDE SANS * CR’ 
3 * PRINT # Bi % 
à # # g = RETOUR RTS 
5 # $ - 1993 * 
Ex + Mac 97 VIRGULE LDA HTAB 
7 # AUTEUR D. SUREAU +# te) CP #$18 
CEE 7 99 BCC VIRGULE? 
g 60 JSR CROO 
10 #PROGR®ME RELOCATABLE 61 VIRGLLEZ2 ADC #$10 
{1 #(C) 83 POM'S & L'AUTEUR 62 AND #$F0 
12 63 STA HTAB 
Î CRG $300 64 
1é 65 CEBUT JSR CHRGET 
15 VATYP = $oo1l 66 
16 LARGEUR =  5$0021 67 # IDENTIFICATION DU SEPARATEUR 
17 TAB = $0024 68 
18 FACNO =  $00h0 69 SEPARTR JSR CHRGOT 
33 CHRGET =  $00B1 70 BEQ OUR :0 QU : 
20 CHRGOT =  $00B7 71 BCC LECTVAR :DIGIT 
21 AMPERVECT =  $03F5 72 JSR ISLETC 
2 CROQ =  $DAFB LA) BCS LECTVRR :CAR ALPHA 
23 STROT = $DB3A 74 Ce 2 
24 QUTDG =  $DBSC 75 BEQ LECTVAR :GUILL. 
D FREU = 78 76 O6 # 
D FLOUE = HE 78 de HAL SINON $,% 
= LM 1 : 
EN = SD 79 VERSDEB BEQ OEBUT | 
29 80 JSR CHRGET 
30 LONGUAR =  $0018 81 
31 VAR = $0019 :& S$tA 82 # FIN DE COMMANDE AVEC ’CR' 
32 DEBLIGN = $001B 83 
33 FINLIGN =  $001D 84 VERSSEP JSR CHRGOT 
34 FUR6 = $001F 85 BME  SEPARTR 
Le) 86 JMP  CROO 
36 RELVECT JSR $FF58 87 
37 TSX 88 # LOCALISATION DE LA VARIABLE 
38 DEX Ep] 
33 LDA $100,X 9 LECTVAR LDA #0 
40 CLC 91 STA $52 *INIT 
él AOC  #TEST-REI.VECT-2 L 2 JSR FRÆWU 
& STA RMPERVET+1 ER BIT VALTYP 
43 LDA $101,X 4 BNE PRSTRING 
ä4 ADC 4590 Lait 
4 STA AMPERVCT+2 36 # TRAITEMENT D'UN NOMBRE 
& LDA #$4C  :JW@ 97 
47 STA RAFERVCT 98 JSR  FRCOUT 
48 RTS 33 PHA 
83 100 iDX #0 
S0 TEST CHP #$BA PRINT? 101 MINSCL  INX 
51 BEG DEBUT LDA $100,X 


ATTENTION DANS (O MÊTRES 
DENIVEUNTON À EVITER ! 
To Joïs Qu''e AUDIT SFURIER 
L'ORDINATEUR . 


!\ 





OU .. MAIS 
{ ON N’A PLUS 


103 BE NPD 
104 TXA 

105 CLC 

106 ADC HTAB 

107 CP LARBEUR 
108 BCC SKIP 
109 JSR CRDO 

110 SKIP PLA 

151 JSR  STROUT 
112 CLC 

113 BCC  SEPARTR 
114 

its # LECTURE DESCRIPTEUR DE CHAINE 
1 

117 PRSTRING LDY #2 

118 BCL LDA  (FACMO),Y 
119 STA  LONGVAR, Y 
120 DEY 

131 BOL. BCL 


12 

123 # DEBLIGN PREND LA VALEUR 0 
124 # PUIS LA POSITION DÙ PRENIER 
125 # CARACTERE DE CHAQUE LIBNE 
126 # SUIVANTE 


127 
128 PRRTN INY 
1 SCAN STY DEBLIGN 


1 

131 # LARGEUR-HTAB+DEBLIGN DONME LA 
13€ + POSITION DU DERNIER CARACTERE 
133 # DE LA LIGNE SUR LA CHAINE 


13 

135 SCANI  LDA LARGEUR 
136 CLC 

137 ABC DEBLIGN 
138 SEC 

139 SBC HTAB 
140 TAY 

tél STY FINLIGN 
142 CEY  LONGVAR 
ià3 BCS PRI-I6N 
14â 


145 + RECHERCHE DU PREMIER BLANC 
146 # PRECEDANT LE MOT COUPE ET 
147 # SAUT EN PRÈIEN 


148 

149 BLANC LOA {VAR}, Y 
150 CO #52 
151 BEQ PRILIGN 
152 DEV 

153 CRY DEBLIGN 
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1 CDR HAE pe PRLIGN STY FINLIGN 11 ER AR Ÿ 

j 1 LDA (VAR), Y 
156 BEQ PRLIGNI 166 PRLIGNI LDY DEBLIGEN 176 JSR OUTDÙ 
157 JSR  CRDO 167 ORECL  CPY  LONEVRR 177 INY 
158 CLC 168 BNE  PABEL2 178 BNE PRBCL 
159 BCC SCANI 169 JSR CHRGOT  :TEST 179 RETLIGN JSR CRDD 
169 170 CP 4422 °21EM 180 INY 
161 # IMPRESSION D’UN£ LIGNE 171 BEQ VERSDEB :‘GUILL. 381 BNE SCAN 
162 # TEST SI FIN DE CHAINE OY 172 BNE VERSSEP 
163 # FIN DE LIGNE 173 PRECI2 CPY FINL.IGN 
Programme SUPER PRINT Conversion de REAL en entier long 

VAR LONGREEL : INTEGERI36]1;: 

#300,3D2 


PROCEDURE CONVERTIR(R1:REAL ); 

VAR PUIS:REAL: 
SIGNE,INC,I,INT:INTEGER: 
SIGNIF : =BOOLEAN:; 


0300- 20 58 FF BA CA BD 00 01 
030B- 18 69 1A 8DF6 03 BD 01 
0310- 01 69 00 8D F7 03 A9 4€ 
0318- 8D F5 03 60 C9 BA FO 19 


BEGIN 

a SIGNIE: FALSE; $ 
IF R1<O THEN SIGNE:=-1 Le 

0338- 90 1C 20 7D EO BO 17 C9 RTL ER BST), 7 é :: 
0340- 22 FO 13 C9 2C FO DA C9 er : É 
PUIS:-1E+36: (# 36 ») : 

0348- 3B FO £5 20 BL 00 20 87 LONGREEL : =0. + 
0350- 00 DO EO 4C FB Di A9 00 A. ere Hi 
0358- 85 52 20 7B DD 24 1! DO Te ee 
:= (x 36+1=37 ») À 

0860- 1E 20 34 ED 46 A2 00 EB SR et ue ï i; 


0368- BD 00 01 D0 FA 8A 18 &S 
0370- 24 CS 21 90 03 20 FB DA 
0378- 68 20 3A DB 18 90 34 # 
0380- 02 B1 A0 99 18 00 88 10 
0388- F8 C8 84 1B A5 21 18 65 
0390- 1B 38 ES 24 A8 84 1D C4 
0398- 18 BQ 15 B1 19 C9 20 FO 
0390- 0F 88 C4 1B DO F5 AS 24 
0SAB- FO 08 20 FB DA 18 90 DC 
0380- 84 1D A4 1B C4 1B DO 03 
03B8- 20 B7 00 C9 22 FO 8A D0 
OSC0- 8D C4 1D FO 08 B1 19 20 
O3C8- 5C DB C8 20 E7 20 FB DA Philippe Chemin 
03D0- CB DO F7 


IF INC<7 THEN INT:=TRUNC{R1/PUIS): 
IF INT<>O THEN SIGNIF:=TRUE: 
IF SIGNIF-=-TRUE THEN INC:=INC+1: 
IF INC>6 THEN INT:-=0: 
LONGREEL : = LONGREEL#10O + INT: 
IF INC>6 THEN INT:=1: 
R1:=R1-INT#PUIS: 
PUIS:=PUIS/10: 

END: 

LONGREEL:=SIGNE *x LONGREEL: 

END: (#CONVERTIR"#) 


Me$ht 
22 








Message de la rédaction 


Nous avons appris avec tristesse que notre rédacteur, Olivier Herz, devait partir au Japon. Il ne pourra hélas plus 
collaborer à Pom's aussi régulièrement que durant cette dernière année où, outre ses brillant articles, il a joué le 
rôle principal dans l'analyse des contributions des lecteurs et dans le Courrier des Lecteurs. Pom's recherche donc 
un collaborateur à temps partiel qui : 


— ait envie de participer à la rédaction de Pom's 

— connaisse bien l'Apple 

— sache aller au fond des choses quand il teste un programme 
— soit capable de s'exprimer clairement 

— réside (si possible, mais pas essentiel) en région parisienne 





Il y a une possibilité que cette occupation devienne à temps plein par la suite. Les candidatures sont à envoyer à 
Hervé Thiriez - Pom's - 49, rue Lamartine - 78000 Versailles. Ne pas oublier d'indiquer vos coordonnées télépho- 
niques. 
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NOUVEAUTÉS SJ [e10): Stand Niveau 3 - Zone AF - N° 3194 


(—## 
nr, - ge e 
Aux Éditions = Fdimicro 


MULTIPLAN SUR APPLE 
Exercices de 
Philippe BONNET 
LUULE A): 11 


MULTIPLAN SUR APPLE 
Exercices de gestion 

Ph. BONNET et NT. DINH 
1983, 180 p. 85 F. 


Ce livre a pour but de vous 
apprendre à utiliser Multi- 
plan par l'exercice. Cha- 
que exercice, choisi pour 
son intérêt pédagogique 
et pratique, est complè- 
tement traité: objectif 
poursuivi, moyens pour ÿ parvenir, description du 
tableau, construction du modèle, indications pour 
adapter et modifier le modèle à votre gré. 


Aux Éditions MASSON LL 


INITIATION A VISICALC 
C. BAUDRY 

Coll. «ABC des langages » 
1983, 152 p. 80 F. 


DIE 


GUIDE DE L'APPLE 
par B. de MERLY 


Tome 1 : L'APPLE standard, 1983, 168 p.68F. 
Tome2: Les Extensions, 1983, 200 p., 68 F. 
s A PARAITRE : Tome 3 : Les Applications 


« Ces ouvragessontles premiers d'une série 
consacrée à l'Apple Il... Les tomes suivants 
traiteront des langages et des périphéri- 

ques. Les exposés sont clairs et à la 
portée de ceux qui ont des connaissances 
élémentaires en informatique >. 


MINIS ET MICROS 
N° 19 


L'auteur propose un apprentissage graduel de VISICALC, en indiquant son instaila- 
tion sur Apple Il et T.R.S. modèle III. 

Dans la première partie, le lecteur est invité à utiliser VISICALC pour construire 
une application. Chemin faisant, les principales commandes de VISICALC sont 


décrites et mises en œuvre. 
La deuxième partie est l'occasion d'évoquer certaines particularités techniques 
de VISICALC permettant de mieux comprendre la logique de fonctionnement du 


œ: 


logiciel. 


Le lecteur pourra s'y reporter, soit pour un approfondissement, soit pour voir 
décrite, sous une forme différente, une commande déjà rencontrée. 


GESTION DU PERSONNEL 
SUR MICRO-ORDINATEURS 


B. MERCK 


Coll. «Méthode + Programmes » 


1983, 200 p. 120 F 


Ce livre, qui est le premier à traiter de la gestion du personnel sur micro- 
ordinateur, intéressera tous ceux qui travaillent dans la fonction, quel que soit 


leur niveau de responsabilité 


et quelles que soient leurs connaissances informatiques. 
Ce sujet, traité avec un souci pédagogique, est illustré par une douzaine 


d'applications pratiques présentées par complexité croissante. 
Chaque application est suivie de la liste complète d’un ou de plusieurs 


+» 


programmes en Basic, immédiatement adaptables à tous les micro-ordinateurs. 


Ces ouvrages sonten vente en librairie ou à la M ais on du Live Spécialisé, 42-48, rue de la Colonie -7 5640 Paris Cedex13-Tél.581.51. 


BON DE COMMANDE 


Q Je désire recevoir les ouvrages suivants : _ 


Ci-joint un chèque de 
et+:21F). 


O 


{à retourner à la M.L.S.) 











Je désire recevoir votre catalogue informatique, 
NOM : 


F libellé à l'ordre de la M.L.S. (participation aux frais de port : 1 vol. : 9F, 2 vol. : 13F, 3 vol. : 16F, 4 vol. 


Prénom : 





Adresse : _ 








Signature : 








Prix public TTC au 15.9.83 
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Mise en forme de listings 


Les programmes présentés ci-après 
sont une application des fichiers 
EXEC, dont le rôle est de formater 
des listings sur imprimante, en effec- 
tuant des sauts de page, avec titre et 
numérotation de chaque page. 


L'exécution de CREALIST constitue 
la première étape du processus. Les 
informations à fournir à ce pro- 
gramme sont : 


- Le nom du programme à lister, tel 
qu'il se trouve sur la disquette (en 
fait, le programme doit se trouver sur 
la même disquette que CREALIST, 
CAPTURE et LISTING). 


- Le numéro de la première page (s’il 
est différent de 1, le titre en double 
largeur n'est pas imprimé]. 


- Le numéro de la demière page (s’il 
est différent de O, la mention : 
a—=—=-# FIN #—-=-=- 5 n'est 
pas imprimée). 


- Les numéros de la première et de 
la demière ligne à lister (répondre 0 
pour commencer au début, et O éga- 


lement pour aller jusqu'à la fin du 
programme). 


CREALIST ouvre le fichier séquentiel 
NOMPROG qui contient les éléments 
précisés ci-dessus, puis crée le fichier 
CAPTLIST qu contient les instuc- 
tions suivantes : 


e LOAD CAPTURE 


e POKE 103,129 (déplace le poin- 
teur de début du programme 
après CAPTURE) 


e LOAD P$ (chargement du pro- 
gramme à lister) 


e Sélection des lignes à éditer (voir 
les lignes 360 à 390 de CREA- 
LIST) 


e POKE 103,1 {repositionne le poin- 
teur de début du programme en 
$801, CAPTURE et le programme 
à lister se trouvant donc ainsi 
réunis) À noter que la première 
ligne du programme à lister doit 
donc avoir un numéro supérieur 
ou égal à 10. 


F: PRINT Li: 


Erick Ringot 


e RUN pour l'exécution de CAP- 
TURE (création du fichier PROG) 


e RUN LISTING pour exécution du 
“listing” proprement dit. 


Ces instructions sont ensuite exécu- 
tées par un EXEC CAPTLIST. 


L'analyse du programme final LIS- 
TING ne doit pas poser de pro- 
blème. Vous pouvez bien sûr modi- 
fier le nombre de lignes par page fixé 
ici à 60 (ligne 280) Selon l'impri- 
mante dont vous êtes possesseur, il 
vous faudra peut-être également mo- 
difier les caractères de contrôle utili- 
sés dans notre exemple, à savoir: 


- CHR$(14) : double largeur 

- CHR$(15) : simple largeur 

- CHR$(12) : saut de page. 

En fin de liste, le programme émet à 
l'écran le message "ERREUR TYPE 


5”, signalant ainsi simplement la fin 
des données. 


PRINT DS"DELETENOMPROG" 
PRINT DS'"OPENNOMPROG"" 

DS"WRITENOMPROG" 
PRINT PS: 


PRINT TS: PRINT P: PRINT 


PRINT L2 


DS""CLOSENOIMPROG" 


DS"OPENCAPTLIST* 
DS"DELETECAPTLIST" 
DS"OPENCAPTLIST" 
DS”"WRITECAPTLIST" 
“"LOADCAPTURE" 
“POKE103,129" 
“"LOAD"PS 

= © THEN 380 

"DEL O,"L1 - 1 

= © THEN 400 
“"DEL"L2 + 1°,40000" 
“POKEi03,1" 

“"RUN* 

“RUNLISTING" 


DS"CLOSECAPTLIST* 
DS"EXECCAPTLIST" 





Programme CAPTURE 


CHRS (4) 


1 

2 PRINT DS"OPENPROG* 

3 PRINT DS"DELETEPROG" 
4 PRINT DS"OPENPROG"‘ 


Programme CREALIST Se 
10 REM ------—mmmmmnmmmmm 230 PRINT 
20 REM LISTINGS FORMATES 240 
30 REM ------------""------ 
40 : 250 PRINT 
50 TEXT : HOME 260 : 
60 PRINT TAB( 5)"LISTING FORMATE" 230 PRINT 
70 VTAB 4: PRINT “NOM DE PROGRAMME ?* 300 PRINT 
80 INPUT PS 310 PRINT 
90 VTAB 7: PRINT "DATE ?"* 320 PRINT 
100 INPUT TS 330 PRINT 
110 VTAB 10: PRINT “NO DE LA PREMIERE P 340 PRINT 
AGE ?" 350 PRINT 
111 INPUT P 360 IF Li 
112 VTAB 13: PRIAT “NO DE LA DERNIERE P 370 PRINT 
AGE ?* 380 IF L2 
114 INPUT F 390 PRINT 
130 VTAB 16: PRINT "NO DE LA PREMIERE L 400 PRINT 
IGNE 2?" 410 PRINT 
140 INPUT Li 420 PRINT 
150 VTAB 19: PRINT “NO DE LA DERNIERE L 430 : 
IGNE 2?" 435 PRINT 
160 INPUT L2 440 PRINT 
170 VTAB 22: PRINT “ O.K. ? <O/N> “:: G 
ET AS: PRINT CHRS$ (13) 
180 IF AS = "N" THEN 50 
190 IF AS < > “O”* THEN PRINT CHRS (7 
>: GOTO 170 DS = 
200 : 
210 DS = CHRS (4) 
212 PRINT DS"OPENNOMPROG" 
Porm's n° 9 
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S PRINT DS"WRITEPROG‘® 
6 POKE 33,33 
7'ALIST-10;.= 

8 PRINT DS$''CLOSE" 

3 END 





Programme LISTING 


20 DS = CHRS (4) 

30 PRINT DS'""OPENNOMPROG" 

40 PRINT DS"READNOMPROG"‘" 

SO INPUT PS: INPUT T#: INFUT Pi INPUT F 
60 PRINT DS$"CLOSENOMPROG"‘* 


70 ONERR GOTO 300 
80 PRINT DS'"PR#1" 
30 PRINT 


100 GET AS: PRINT CHRS (13) 

140 PRINT CHRS {9)'"8ON" 

150 PRINT DS"OPENPROG" 

160 PRINT DS$"READPROG"* 

170 IF P < > 1 THEN 190 

180 PRINT CHRS (14) TABC 10)PS CHRS {1 
5): PRINT : PRINT 


Hard copy Seikosha 


Le programme de Hard Copy Seikosha du Pom'’s 7 ne 
fonctionne tel quel que sur la GP80M. Pour ie faire 
marcher avec la GP100A, il faut changer la valeur de 
$193F ($8A} en $90. Cet octet représente une durée 
de temporisation. 


190 PRINT P$ SPCC 35 - LEN (PS)}"PAGE 
“P SPCC 34 - LEN CTS))ITS: PRINT 
: PRINT 

200 N = 0 

2OSTLS" = "0" 

210 GET AS 

220 IF AS = CHRS (13) THEN R = R + 1: 
GOTO 260 

230 LS = LS + AS:N = N + 1 

240 IF N = 76 THEN PRINT LS:N = 6: PRI 
NT TABC 6);: GOTO 205 

250 GOTO 210 

260 PRINT LS:X = FRE (O):L = L + 1 

280 IF R < = 45 AND L «< = 60 THEN 200 

282 IF P = F THEN 300 

28S P = P + 1: PRINT 
= O 

290 GOTO 1930 

300 PRINT DS"CLOSE" 

310 IF F = O THEN PRINT : PRINT : PRIN 
T TAB( 30)"<<-=-=-# F I N -2-2- 
>>" 

320 PRINT DS'"PR#O" 

330 PRINT “ERREUR TYPE ‘” PEEK (222) 


CHRS (12):R = O:L 


Accélérez COPYA 


Si la disquette sur laquelle vous voulez copier est déjà 
initialisée, vous pouvez éviter que COPYA la réinitialise 
en suivant la procédure ci-dessous : 


1) RUN COPYA 3} 250 FT=1 


2) Faire RESET 4) RUN 80 





Apple //e Apple /// 


leurs interfaces, 
leurs périphériques, 
leurs logiciels 


Librairie spécialisée Apple 


m.b.d.c. 


172, rue Solférino - 59800 LILLE TEL. (20) 57.91.87 


concessionnaire agréé APPLE - S.A.V. sur place 


ouvert du mardi au samedi de 9h30 à 12h et de 14h30 à 19h 
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Lecture de fichiers TEXT 


Le programme utilitaire” listé ci- 
après permet de lire à l'écran ou 
d'imprimer tout fichier TEXT séquen- 
tiel (fichier de données ou fichier de 
traitement de texte). 


Ï est suffisamment simple pour se 
suffire à lui-même sur le plan des ex- 
plicatiens. Notons simplement le rôle 


de fa sous-routine d'erreur qui 
commence en 460. Cette dernière 
permet d’une part de détecter la fin 
du fichier (B@05) et, d'autre part, de 
traiter le problème des caractères de 
contrôle qui déclenchent une ”ILLE- 
GAL QUANTITY ERROR” {code er- 
reur 53} à l’appel de la fonction 
ASC. La possibilité d’avoir à lire un 


Jean-François Schwark 


fichier TEXT comportant de nom- 
breux caractères de cette nature justi- 
fe par ailleurs l'emploi de la petite 
routine en langage-machine présen- 
tée dans le manuel de référence de 
l'Applesoft (page 136) en vue de 
supprimer les problèmes résultant 
d'appels trop fréquent à une procé- 
dure ONERRK. 











Programme LI-TEXTE 200 PRINT : INVERSE : PRINT “IMPRESSION 
(O/N) ‘:: GET S$: NORMAL 
we | 210 IF SS = “O* THEN PRINT RS + DS:"*PR 
D RIBBISESAIESS #1": PRINT CHRS (9); "8ON“: REM 
IMPRIMANTE SLOT 1 
Ss REM nannnnnnnnnnnnnnnnnnn 220 PRINT 
10 REM CE] LECTURE DE CE] 320 PRINT DS:"OPEN ‘:NFS 
20 REM 2 FICHIERS TEXTES ## 330 PRINT DS:'"READ ‘“;:NFS 
30 REM QE SEQUENTIELS = 340 LS = “ 
40 REM RRRRRRRRRRRRRRRRRRRRAR 350 GET CS 
45 POKE 768,104: POKE 769,168: POKE 770 | 360 IF CS = RS THEN 410 
,104: POKE 771,166: POKE 772,223: | 370 VC = ASC (CS) 
POKE 773,154: POKE 774,72: POKE 380 IF VC > 96 AND VC < 123 THEN CS = 
775,152: POKE 776,72: POKE 777,96 CHRS (VC - 32) 
50 TEXT : HOME 390 LS = LS + CS: IF LEN (LS) = 255 THE 
60 ONERR GOTO 460 N 410 
70 DS = CHRS (4) 400 GOTO 350 
80 RS = CHRS (13) 410 PRINT RS:DS 
9SO CAS = CHRS (1) 420 PRINT CAS:LS 
100 AS = * # LECTURE FICHIERS TEXTE # " 430 GOTO 330 
110 VTAB 3: HTAB 20 - LEN (AS) / 2: IN | 440 PRINT “FIN DU FICHIER TEXTE" 
VERSE : PRINT AS: NORMAL 445 PRINT DS;"CLOSE "“:NFS 
130 FOR X = 3 TO 40: PRINT “:";:: NEXT 447 PRINT DS:"PR#O" 
140 PRINT : PRINT “PERMET AFFICHAGE A L | 450 PRINT : PRINT ‘AUTRE FICHIER ? (O/N 
*’ECRAN DE FICHIER T." D":: GET FS$: IF F$ = "“O“ THEN GO 
150 PRINT : INVERSE : PRINT “VOULEZ-VOU TO 150 
S LE ‘CATALOG’ (O/N) “;: GET CS: 455 IF F$ = "N“ THEN 500 
NORMAL 460 CALL 768:B00 = PEEK (222): IF BOO 
151 IF C$ = “N”" THEN 170 = 53 THEN 390 
152 IF C$S = “O* THEN PRINT : PRINT : 1 | 480 IF BOO = 5 THEN GOTO 440 
NVERSE : PRINT "DRIVE <1> OU <2> 485 HOME : VTAB 10: HTAB 10 
? “:: GET X$: NORMAL 490 PRINT “ERREUR NUMERO ‘*:BOO:" SURVEN 
154 IF X$S = "1" THEN PRINT RS + DS:"CA UE." 
TALOG,D1" 495 FOR I + 1 TO 2000: NEXT I 
156 IF X# = “2“ THEN PRINT R$ + DS;"CA | 500 REM ne* FIN/BOOT == 
TALOG, D2" 505 HOME :22$ = “ # F I N # “: VTAB 10: 
170 PRINT : PRINT HTAB 20 - LEN (ZZS) / 2: INVERS 
175 HTAB 25: PRINT “<S> --> STOP": PRIN E : PRINT ZZ$: NORMAL 
T 510 VTAB 15: HTAB 5: PRINT * NOUVELLE D 
180 INVERSE : INPUT "NOM DU FICHIER TEX ISQUETTE ? O/N "“:;: GET AS: IF LE 
TE ? “;NFS: NORMAL FTS (AS,1) < > “O“* THEN HOME : 
185 IF NFS$S = ‘“" THEN 150 END 
190 IF NFS = “S* THEN 500 515 PRINT CHRS {13} + CHRS (4):3"PR#6* 
PROGRAM ESSAI: 
9 mn 
Un bug de Pascal Apple (version Il. 1) ? VAR T:INTECER: 
e nt . . si BEGIN 
Le programme ci-contre, quand on l’exécute, affiche ”——2768”! Tes IC adar- 152b 4! 
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“ 
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Heureux possesseurs 


d'un Apple R 
JL, JC, Je, ou U/, 


VOICI votre réseau. 

















CALVADOS 


@ Ouvert depuis juin 1982, c'est le réseau choisi par Apple en France et par ses reven- 
deurs. 





@ Bases de données proposées par Apple pour enrichir votre pratique de l'ordinateur per- 
sonnel : 
BDT : Base de données sur le matériel Apple 
BDM : Catalogue de matériels Apple et compatibles 
BDL: Catalogue de logiciels Apple et compatibles. 


e Messagerie électronique et panneau d'annonces accessibles à partir de tout point duter- 
ritoire national. 


©@ Transfert de fichiers et de documents (traitement de texte et «calc») entre tout Apple où 
qu'il soit en France, avec conversion automatique QWERTY-AZERTY et Apple ][.//e, 
117: 


@ Pour les SSCI et créateurs de logiciels, un contact immédiat avec plus de 120 revendeurs 
(180 fin 1983), avec possibilité de diffusion de messages promotionnels. 


@ Bases de données boursières (bourses françaises et étrangères). { 
@ Constitution de réseaux privés sans investissements. À 
©® Constitution de bases de données privées pour consultation à distance. 

e Transfert d'informations entre disquettes et bandes magnétiques standard. 


e Des tarifs qui font de Calvados le moyen de communication et le serveur le moins cher 
du marché. Conditions spéciales pour clubs. 


Boîte Postale 21-07 75327 Paris Cédex 07 - Tél. : 705.09.04 
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01170 GEX 

CENTRE D'INFORMATION 
PERSONNELLE 

CROZET 

CALVA 1100 

02100 SAINT QUENTIN 
COGNET 

21, Rue Victor Basch 
(23)62.72.89 

CALVA 1087 

03200 VICHY 

03 INFORMATIQUE 

7, Rue Voltaire 
(70)31.7400-CALVA 1031 
06000 NICE 

D.S.A. INFORMATIQUE 
5, Bd Debouchage 

(93) 85.15.96 

CALVA 1125 


06000 NICE 

MICRO-MEDIA 

27, Rue Delille 
(93)85.28.06-CALVA 1073 

06000 NICE 

SORBONNE INFORMATIQUE 
40, Rue Gioffredo 
(93)85.17.55-CALVA 1072 


06150 CANNES LA BOCCA 
ONDE MARITIME 

28, Boulevard du Midi 
(93)47.4430-CALVA 1024 


06600 ANTIBES 

ESPACE INFORMATIQUE 
1, Chemin de Saint-Claude 
(93)74.78.01-CALVA 1049 


06700 ST LAURENT DU VAR 
COMPUTERLAND 

Avenue Léon Béranger 
(93)07.61.12-CALVA 1129 


06700 ST LAURENT DU VAR 
POINT MICRO 

CAP 3000 

(93)31.2440 -CALVA 1046 


06 MONACO 
MICROTEK 

2, Bd Rainier III 
(93)50.43.44 -CALVA 1003 
11009 CARCASSONNE 
R.2.1. INFORMATIQUE 
76, Allée d'Iéna 








(68)47.30.97 - CALVA 1040 


13005 MARSEILLE 
ELP INFORMATIQUE 
20, Rue Hugueny 


(91)94.91.13 - CALVA 1056 


13006 MARSEILLE 
INTERNATIONAL 
COMPUTER/INTERSOFT 
64, Rue de Prado 

CALVA 1103 

13006 MARSEILLE 
S.M.I.A, 

33A, Avenue Jules Cantini 
{91)80.34.12 - CALVA 11D 


1007 MARSEILLE 
PROVENCE SYSTEM 
74, Rue Ste Le Si James 
(91)33.22.33- ALVA 1055 





13008 MARSEILLE 
MEDIATEC 

485, Avenue du Prado 
(91)71.45.45 - CALVA 1112 
13100 AIX EN PROVENCE 

ECO INFORMATIQUE 
Boulevard Coq 

(42)26.20.23 - CALVA 1115 

13700 VENELLES 

SOPROGA 

Avenue de la Mouliero 
(42)61.12.43 - CALVA 1087 

14300 CAEN 
COMPUTERLAND CAEN 
12, Rue St Pierre 
(31)85.6248 - CALVA 1098 








14390 TRONQUAY 
NORMANDIE INFORMATIQUE 
Résidence la Tuilerie 

(31)92.56.09 - CALVA 1074 

21000 DIJON 

0.M.G. 

20, Rue Michelet 

(80)30.12.70 - CALVA 1045 
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LE RESEAU MICRO-INFORMATIQUE ————— 


21000 DLJON 
LASOBIKOR 
7, Rue Monge 


(80)30.09.70 - CALVA 1014 


21000 DIJON 
SETTEMINFORMATIQUE 
36, Rue Jeannin 

(80)66.16.43 - CALVA 1033 


22000 ST BRIEUL 

CENTRE INFORMATIQUE 
BRETON 

19, Rue de Rohan 

CALVA 1082 


25200 MONTBELIARD 
MICRO ALPHA SOFT 
11, Impasse du Lacquet 
(81)97.1646 - CALVA 1018 


29000 QUIMPER 

MATRICE DEVELOPPEMENT 
2, Venelle de Kergos 
(98)55.75.93 - CALVA 1094 
29200 BREST 

LA BOUTIQUE 
INFORMATIQUE 

156, Rue Jean Jaurès 
(98)44.32,79 - CALVA 1107 


30000 NIMES 

58, Ruc Pierre Sernard 
(66)36.02,52 - CALVA 1111 
30100 ALES 

ARCOMEL 

8bis, Rue Mistral 
(66)52.15.91 - CALVA 1083 
31000 TOULOUSE 
BUREAUMATIQUE 

4, Promenade des Capitouls 
(61)21.87.27 - CALVA 1128 





37000 TOURS 

BOUTIN INFORMATIC 
36, Rue Marceau 
(47)20.51.83 - CALVA 1060 
37000 TOURS 
POLY-SOFT 

23, Avenue Molière 


(47)66.66.49 - CALVA 1010 


37000 TOURS 
SELECTRON 

20-24, Rue de Jérusalem 
(47)20.80,70 - CALVA 1093 


38100 GRENOBLE 

GAMMA INFORMATIQUE 
9, Cours de la Libération 
(76)96.30.05 - CALVA 1048 
45000 ORLEANS 

A.G.O0. 

22, Rue Etienne Dolet 
(38)5445,13 - CALVA 1090 


45 ORLEANS 01 
A.M.C. 
13, Rue des Minimes 


(38)62.62.58 - CALVA 1116 


46013 NANTES 
SIVEA 
121, Bd Gabriel Guist'hau 
(40)47.53.09 - CALVA 1097 


53000 LAVAL 

SLAD INFORMATIQUE 
29, Rue Ambroise Paré 
(43)49.2545 - CALVA 1026 


54000 NANCY 

JEAN VLASTOS 

MICRO INFORMATIQUE 
143, Rue Sgt Blandon 


(8)341.26.16 - CALVA 1130 


Ces revendeurs APPLE 


sont abonnés à CAIVMADOS. 


Demandez-leur 
une démonstration! 


31000 TOULOUSE 
SOUBIRON 

9, Rue J.F. Kennedy 
(61)21.64.39 - CALVA 1020 
33000 BORDEAUX 

B 33 BOUTISOFT 

9, Rue de Lalande 
(56)91.55.08 - CALVA 1122 
34000 MONTPELLIER 
MICRO 34 
INFORMATIQUE 

7, Cours Gambetta 
(67)92.91,23 - CALVA 1080 
34130 VALERGUES 
C.E.B.E.A. 

Route Nationale 113 
(67)71.76.69 - CALVA 1079 
35000 RENNES 
COMPUTERLAND 
BRETAGNE 

13, Avenue du Mail 
(99)5447,12 - CALVA IOII 
35000 RENNES 
X-MATIC 

161, Avenue Général Patton 


(99)38.31.80 - CALVA II21 


35100 RENNES 

DELTA INFORMATIQUE 
4, Place de Bretagne 
(99)30.65.18 - CALVA 1120 
35000 TOURS 

A,R.E.I. 

8, Allée du Manoir 

CALVA 1099 





54000 NANCY 
PRECILAB 
96, Rue Stanislas 


(8)337.06.78 - CALVA 1016 





54400 LONGWY 
SOCIETE RANDOM 
18, Rue Mercy 
CALVA 1081 

54520 LAXOU 


SEMITEC 
69, Rue de Maréville 


(8134043.38 : CALVA 1008 





56000 VANNES 
L'ORDINATEUR 56 
38, Bd de la Paix 


(97)54.29.50 - CALVA 1108 


57000 METZ 

LA MICRO BOUTIQUE 
ECONOMAISON 

3, Rue Paul Bezanson 
(8)775.41.56 - CALVA 1114 








57800 FREYMING-MERLEBACH 
CENTRE MICRO- 
INFORMATIQUE 

3, Place de la Gare 
(8)781.14.89 - CALVA 1030 








59000 LILLE 

M.B.D.C. 

172, Rue Solférino 
CALVA 1061 

59000 LILLE 

RYO INFORMATIQUE 
42, Rue de Paris 


(20)30.63.11 - CALVA 1076 


5 000 LILLE 
SIVEA 
21bis, Rue de Valmy 


(20)57.88.43 - CALVA 1075 


59300 VALENCIENNES 
MICROMEGA 
38, Rue des Famars 


(27)42.30,30 - CALVA 1086. 


59700 MARCQ EN BAROEUL 
MICRODATA 
INTERNATIONAL 

920, Avenue de la République 
CALVA 1084 

59800 LILLE 
MICRO-INFORMATIQUE 
5, Rue de Pas-Nouveau Siècle 
(20)54.62.22 - CALVA 1063 
60105 CREIL 

QUENEUTTE B.P. 48 
(4)425.04.26 - CALVA 1032 





63000 CLERMONT-FERRAND 


FLAGELCTRIC 
142, Avenue Mermoz 
(73)92.13.46 - CALVA 1119 


63008 CLERMONT-FERRAND 


NEYRIAL INFORMATIQUE 
3, Cours Sablon 
(73)92.89.50 - CALVA 1110 
63100 BAYONNE 

LE CALCUL INTEGRAL 
3, Rue A. Briand 
(59)27.63.28 - CALVA 1089 
67008 STRASBOURG 
CILEC 

18, Quai St Nicolas 
(88)37.31.61 - CALVA 1015 
67000 STRASBOURG 
MICRO-MAT 

30,.Rue Geiler 

(88)60.68.68 - CALVA 1077 
67200 STRASBOURG 
WALZ INFORMATIQUE 
89, Route des Romains 
(88)29.54.55 - CALVA 1105 
69003 LYON 

AB INFORMATIQUE 
18, Rue Pailleron 
(7)851.44.86 - CALVA 1041 
69003 LYON 

ALPHA SYSTEMS 

84, Av. du Maréchal de Saxe 
(7)860.89.34 - CALVA 1036 








69006 LYON 

ALTI 

39, Rue Barrier 
(7)824.00.03 - CALVA 1042 





69006 LYON 
ECO-INFORMATIQUE 
50, Cours Vuitton 
(7)82451.18 - CALVA 1066 
71000 MACON 
CLINIQUE ELECTRONIQUE 
369, Rue de Paris 
(85)38.20.84 - CALVA 1053 
72000 LE MANS 
AESCULAPPLE 

4, Rue de Richebourg 
(43)24.97.80 - CALVA 1067 
72000 LE MANS 

ASCI 

115, Rue Nationale 
(43)84.28.28 - CALVA 1095 
74000 SAINT GEVRIER 
SIGEA 

34, Avenue de la République 
(50)57.02.80 - CALVA 1043 
74102 ANNEMASSE 
D.S.A. MICRO 

15, Rue Adrien Ligue 
(50)38.31.40 - CALVA !844 
75001 PARIS 

MICRO SUP 

6, Place Vendôme 
(1)260.67.15 - CALVA 1057 
75007 PARIS 

M.V.I. 

27, Rue Vaneau 
(1)551.66.77 - CALVA 1062 
75088 PARIS 

A.M.E. 

172, Boulevard Haussman 
(1)562.9640 - CALVA 1059 


suite page suivante 
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75008 PARIS 

EUROPE 
COMPUTER SYSTEM 
16, Rue Washington 
CALVA 1092 





75008 PARIS 
L'ORDINATEUR 
INDIVIDUEL AFFAIRES 
30, Rue Cambacérès 
(1)742.91.00 - CALVA 1050 


75008 PARIS 

POINT MICRO 

16, Rue de la Boétie 
(1)265.89.35 : CALVA 1019 
75008 PARIS 

S.1.V.E.A. 

13, Rue de Turin 

(1)522.70.66 - CALVA 1052 
75009 PARIS 
COMPUTERLAND MOS 75 
8, Rue Bleue 

(1)824.65.80 - CALVA 1064 
75009 PARIS 

JCR ELECTRONIQUE 

58, Rue Notre Dame de Lerette 
(1)282.19.80 - CALVA 1078 
75009 PARIS 

L.P,S. BUREAU 

46, Rue Laffitte 

(1)878.2645 - CALVA 1007 


75010 PARIS 
SOFT MACHINE 
31, Bd de Magenta 
CALVA 1088 


75011 PARIS 

MICRO INFORMATIQUE 
DIFFUSION 

51bis, Av. de la République 
(13357.83.20 - CALVA 1009 
75012 PARIS 

ELLIX 

7, Rue Michel-Chasles 
(13307.60.81 - CALVA 1005 
75012 PARIS 

GESTION MICROS 

ET SERVICES 

212-214, Avenue Daumesnil 
(1)345.28.52 - CALVA 1068 
75015 PARIS 

ILLEL CENTER 
INFORMATIQUE 

143, Avenue Félix Faure 
(15549748 - CALVA 1001 
75015 PARIS 
INFORMATIQUE 
ELECTRONIQUE FRANÇAISE 
228, Rue Lecourbe 
(1)828.06.01 - CALVA 1006 
75015 PARIS 

MICRO ASSISTANCE 

66, Rue Castagnary 
(1)5300528 - CALVA 1037 
75015 PARIS 

SIDEG 

170, Rue St Charles 
(1)557.79.12 - CALVA 1013 
75016 PARIS 
MICRODATA 
INTERNATIONAL 

50, Rue Raynouard 
(11525.81.64 - CALVA 1051 
75016 PARIS 

SOCIETE ANTIGONE 
12, Avenue Pierre ler de Serbie 
CALVA 1028 

75017 PARIS 

B.S.C, INFORMATIQUE 
39, Rue Cardinet 
(1)763.95.33 - CALVA 1117 
75017 PARIS 

K.A. 

6, Rue Darcet - CALVA 1027 








75047 PARIS 

SOCIETE GAMIC 

27, Rue Guersant 
(1)574.02.92 - CALVA 1131 





75017 PARIS 
RANDOM FRANCE 
75 Bd Pereire 


(D227.59.20 - CA VA 1126 


75017 PARIS 

SOCIETE FRANCAISE 
D'INFORMATIQUE 
APPLIQUEE 

41, Rue la Condamine 
CALVA 1065 

75018 PARIS 

B.1.P. L'INFORMATIQUE 
PERSONALISEE 

22, Rue Joseph Dijon 
(112554463 - CALVA 1070 
76000 ROUEN 

L'ESPACE TEMPS REEL 
9, Quai du Havre 
(35)89.29.11 - CALVA 1101 
76200 DIEPPE 
ELECTRODOM 

9, Rue Lemoyne 
(35)84.18.58 - CALVA 1002 


78000 VERSAILLES 
MICROAMI 

17, Avenue de Saint Cloud 
(3)021,30,15 - CALVA 1106 


78100 ST GERMAIN EN LAYE 


ORDI GESTION 
13, Rue Louviers 
G)51.58.25 - CALVA 1109 


78117 CHATEAUFORT 
AVIRADIO 
Toussus-le-Noble 

(3)956.22.20 - CALVA 1127 
78190 TRAPPES 

PROBE INFORMATIQUE 
26, Avenue des Frères Lumière 
(3)1062.26.03 - CALVA 1123 
80000 AMIENS 

PICARDIE 
MICRO-INFORMATIQUE 
6, Rue Allart 

(22)91,52,39 - CALVA 1022 


85000 LES SABLES D'OLONNE Cdx 


IDEES INFORMATIQUE 
Port Olona - B.P, 193 
(51)95.1947 - CALVA 1069 


86000 POITIERS 

LISTE INFORMATIQUE 
34, Bd Solférino 
(49)41.43.86 - CALVA 109] 
87000 LIMOGES 
MICROLIM 

81, Bd Gambetta 
(55)34.10.12 - CALVA 1118 


92086 PARIS-LA DEFENSE 


POINT-MICRO 

Tour Neptune - CALVA 1023 
92100 BOULOGNE 
MINIGRAPHE 
MICRO-INFORMATIQUE 
263, Bd Jean Jaurès 
(1)6084431 - CALVA 1034 
95200 SARCELLES Z.I 
MICROKEY 95 

34, Rue de l'Escouvrier 
(3)419.04.24 - CALVA 1124 


95526 CERGY-PONTOISE Cdx 


ORGAMATIQUE 
9, Chaussée J. César - B.P. 304 
(6)03037.85 - CALVA 1021 


97200 MARTINIQUE 
MICRO-TRAITEMENT 
Centre Commercial Dillon 
Fort de France 
(596)73.91,45 - CALVA 10% 





75017 PARIS 

NASA ELECTRONIQUE 

16, Avenue de la Grande Armée 
CALVA 1071 


97400 LA REUNION 

MICRO SYSTEMES SERVICE 
74, Rue Labourdonnais 

CALVA 1102 





Librairie dépositaire de la documentation technique Cai- 
vados: LA NACELLE — 2, Rue Campagne-Première 
75014 PARIS - Tél.: 322.56.46. 


S’ADAPTE A VOS BESOINS 
matériels - choix - décisions 


[Rele7:va1e)\ 
APPLE /! la semaine 


PROGRAMMES MÉDICAUX 


Logiciels - Progiciels 


ENSEIGNEMENT ‘Promotion 
SHARP PC 1212 850 F TTC 
MZ 804__ 6.800 F TTC 


ADAPTATIONS PERSONNALISÉES 


Progiciels 


dépôt vente 


h'ime]:117:vplelt)= 
12, rue de Constantinople 
75008 Paris 
Tél. : 293.53.38 
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Saisie multipage en Pascal 


Cette procédure Pascal permet de 
saisir et de modifier un tableau de 
chiffres avec le nombre de lignes et 
de colonnes et tous les libellés hori- 
zontaux et verticaux que l'on désire. 
Cette saisie peut s'intégrer à n’im- 
porte quel programme susceptible 
d'en tirer profit (statistiques, ges- 
tion...) soit généralement toute appli- 
cation similaire à Visicalc, mais récla- 
mant un traitement précis 
(régression, analyse factorielle, calcul 
matriciel, saisies de mouvements de 
stock...). 


Le processus de saisie/modification 
ressemble à celui de Visicalc. On dé- 
place le curseur d’une case à une 
aute dans les quatre directions et 
l'écran est une fenêtre qui suit le cur- 
seur sur le tableau. Les flèches” 
permettent le déplacement et la barre 
d'espacement sert de bascule entre le 
sens vertical et le sens horizontal. 
Toutefois, contrairement à Visicalc, la 
fenêtre passe brutalement” d'une 
page à une autre. 


Intégration 
à d’autres programmes 


Pour la réaliser, il suffit de changer 
les CONST MAXLIGTB (nombre de 
lignes) et MAXCOLTB (nombre de 
colonnes) en tête de programme et 
de modifier éventuellement le type 
des nombres du tableau TAB. Les 
paramètres à fourmir pour l’appel de 
la saisie sont : 


Nombre maximum de colonnes : 
MAXCOL (inférieur ou égal à MAX- 
COLTB) 


Nombre maximum de lignes : MAX- 
LIG {inférieur ou égal à MAXLIGTB) 


Nombre de 
PASCOL 


Nombre de lignes par page : PASLIG 


colonnes par page: 


Largeur des libellés verticaux : LAR- 
LIBV 


Largeur des colonnes : LARGCOL 
Tableau des libellés horizontaux : LH 
Tableau des libellés verticaux : LV 


Tableau d’entiers (long integer) : TB 
(à saisir et modifier). N'oubliez pas 
de remettre ce tableau à zéro en cas 
de premier remplissage, ce que fait 
INIT dans mon programme. 
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A noter qu'il faut que MAXCOL soit 
un multiple de PASCOL et MAXLIG 
un multiple de PASELIG. 


Remarques sur les 
procédures habituelles 


J'ai utilisé les procédures habituelles 
déjà publiées par Pom's. auxquelles 
j'ai ajouté: 


e PROCEDURE EXPIO(P:INTEGER; 
VAR RES:INT); 


Retoume RES qui a pour valeur 18 à 
la puissance P. 


e PROCEDURE VALISSTRING;VAR 
VALEUR:INT); 


Transforme une chaîne en un nom- 
bre entier (même fonction que le 
VAL de l'Applesoft). Attention, il n’y 
a pas de contrôle sur l'appartenance 
de C à [0.:9]. 


J'aurais préféré utiliser des fonctions 
à la place de ces deux procédures, 


ERGUN - Mode Inverse 
Sortie par GRAFTEXT (p. 7) 


AAA AIRE 


ESSONNE ES EAN L LL I LEON AO ER 


 tTEIEIEIT# 





ARRSARIONRSNTNNANARNAAARANAINNRITPNNNNATENENSNENSNANSETAERITEENSAIRENANENNENINTAIRIREIATRINTNEN 


RNRANBHSNENNNENSNERSNENDRENTNSNSRONSRANNENNENSSNERCNNESNENENNENENRNRARES 


RRARSNNANAANANENENENINORANENSRENENSRELX!:, 


SSSR AMAXEEANSNENNNENENMENENNNENEX I: 
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mais elles m'ont refusé des INTE- 
GER [N] comme résultat. 


e PROCEDURE EMPILE(C:CHAR; 
VAR S:STRING); 


cr le caractère C dans la chaîne 


e PROCEDURE SWITCH(VAR S: 
BOOLEAN); 


Met S à ”’hue” si S est ”false” et ré- 
ciproquement. 


Description des 
différentes procédures 


PRINTVERT : affiche < ou À sw- 
vant que les flèches assurent un dé- 
placement horizontal ou vertical. 


SAISINT(ILMAX:INTEGER, VAR N: 
INTEGER;VAR CAR:CHAR) : fait la 
saisie d'un entier et contrôle qu’il ne 
dépasse pas la largeur des colonnes. 
Retourne cet entier (N) et CAR qui 
contient la touche tapée après le 
nombre (flèches, espace, ou F). 


SAISIPAGE(PREMCOL,DERCOL, 
PREMLIG,DERLIG:INTEGER) : pro- 
cède à la saisie de la page commen- 
çant à la colonne PREMCOL, ligne 
PREMLIG, et finissant à la colonne 
DERCOL, ligne DERLIG. Cette pro- 
cédure appelle successivement 
SAÛTE et SAISINT. On en sort si 
l'on HOUR un bord ou si l’on appuie 
sur F. 


CADRE : affiche le cadre de saisie et 
ses libellés horizontaux et verticaux. 


SAUTE : aïguile sur BAS, HAUT, 
GAUCHE, DROITE. Bascule égale- 
ment VERT si on a appuyé sur ’es- 
pace”. 


BASHAUT GAUCHE DROITE : mo- 
difient X et Y, paramètres utilisés 
dans SAÏSIPAGE pour positionner le 
curseur, ainsi que les numéros de 
lignes et de colonnes (NL et NC). 


PAGEGAUCHE à PAGEBAS : modi- 
fent les paramètres PREMLIG, DER- 
LIG, PREMCOL et DERCOL. Infor- 
ment également si l’on a touché l’un 
des bords du tableau (BORD est mis 
à ”’true”). 


CORPS SAÏSIMULTIPAGE : appelle 
les autres - procédures jusqu'à ce 
qu'on ait appuyé sur F. 


TrerttStrhriqée 
Ress ns. 











(nana sum n nn d nd n ddé nnd bn dd né à dé à à à à } 


Cæ SAISIE MULTIPAGE EN PASCAL (TYPE VISICALC) #) 
Ce MICHEL LAFON LE 7/02/1983 #) 
Ce #) 
(æ 2) 


Ce se 0 0e 0 9e 9e 9e 9e 9e 3 26 26 38 27 36 3e 26 3 98 26 36 3e 26 3e 26 26 26 36 8 Je 26 Je JE 26 46 26 36 Je 26 26 D 26 20 26 6 Je 3 26 D 26 26 Je 6 26 3 26 D 26 28 Je 3 26 3 26 28 26 26 26 3 2e 3 26 2e 6 ) 


CONST MAXLIGTB =40;(* MODIFIER EVENTUELLEMENT SI L’ON VEUT TRAVAILLER #) 
MAXCOLTB =40;C* SUR UN TABLEAU PLUS GRAND x) 
TYPE CHOIDECA =SET OF CHAR: C#TYPES DE/DES: #) 
INT =INTEGER(10];: C* NB DU TABLEAU *) 
TAB =ARRAY(1..MAXLIGTB,1..MAXCOLTB]) OF INT;(* TABLEAU A SAIS/MODIF *) 
STR1S6 =STRING(10]: Cr 1 LIBELLE 2) 
LIBHOR =ARRAY{(1..MAXCOLTB] CF STR10O: (Cr LIBELLES HORIS. 2) 
LIBVER =ARRAY(1..MAXLIGTB] OF STR10O; Ce Ge VERTIC. #) 
DIRECTION =CVHAUT,VBAS,VGAUCHE,VDROITE,NEANT); 
VAR NOM : STRING; 
COM,HOME,BS,EOL,SON,FS,SP,INV,NORM,CR:CHAR; 
BONSET : CHOIDECA; 
LBH : LIBHOR; 
LBV :LIBVER: 
TB :TAB; 
IST :INTEGER; (* COMPTEURS DE BOUCLE®*) 


CO 008 07 08 06 06 JE NOM UUN NN RRDRRUDDDDUNNNDDNURNDRDUNDUNDUDNNSNDNEUNNSESRNNNNEN SERRES E ) 


C» PROCEDURES HABITUELLES COURANTES *) 


CRRRRNNRNENRNMMNNMNHXNNNNNNN MN NM NN DONNE 0 D DE D 06 De DE 00 D De De De 6 26 2 06 06 06 De 00 0 De 6 4 08 06 0e De De 06 De 0 9e 26 de 1e 0 8 © ) 


PROCEDURE MESSAGE(X:INTEGER;S:STRING); 
BEGIN GOTOXY(O,X):WRITE(S,EOL) END: 


PROCEDURE PRENRETURN; 
VAR SORT: CHAR: 
BEGIN REPEAT READ(KEYBOARD, SORT): UNTIL EOLN(CKEYBOARD) END; 


FUNCTION PRENCARCBONSET:CHOIDECA) : CHAR: 
VAR CH:CHAR: 
BON:BOOLEAN; 
BEGIN 
REPEAT 
READC(KEYBOARD,CH); IF EOLNCKEYBOARD) THEN CH:=CR; BON:=CH IN BONSET; 
IF NOT BON THEN WRITECCHR(7)) ELSE IF CH INf’ ’..’7*°3 THEN WRITE(CCH); 


UNTIL BON; 
PRENCAR:=CH 
END: 


PROCEDURE PRENCHAINE(LONGMAX:INTEGER:BONSET:CHOIDECA:; VAR S:STRING); 
VAR S1 :STRING!{1]; 
CONT:STRING: 
BEGIN 
S1l:=% TéOCONTS="": 
REPEAT 
IF LENGTH(CONT)=O THEN S111;:=PRENCAR(CBONSET) 
ELSE IF LENGTH(CONT)=LONGMAX THEN S1[1]1:=PRENCAR((CCR,CHR(8)]) 
ELSE S1{11:=PRENCARCBONSET+[CR,CHR(8) 1): 
IF S1£1)] IN BONSET THEN CONT:=CONCAT(CONT,S1> ELSE IF S1(1]=CHR(&) THEN 
BEGIN WRITE(CBS,” ‘’,BS): DELETE(CONT,LENGTHÇCCONT),1) END: 
UNTIL S1[1ji=CR:; 
S:=CONT 
END: 


FUNCTION OUI:BOOLEAN: 
BEGIN OUI:=PRENCAR((C’0’,°N°3} IN C’O°} END; 


FUNCTION SELECT{X:INTEGER:S:STRING : BON:CHOIDECA):CHAR: 
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BEGIN MESSAGE(X,S) ;: SELECT:=PRENCARCBON) END; 


PROCEDURE EXP1O0(P:INTEGER;VAR RES: INT): 
VAR N:INT: 


BEGIN N:=1; IF P<>O THEN BEGIN FOR I:=1 TO P DO N:=N#10 END; RES:=N END: 


PROCEDURE VAL{(S:STRING:VAR VALEUR:INT); 
VAR E10O, N,V :INT: 


C : CHAR: 
T :INTEGER: 
BEGIN 
N:=0: 


FOR I1:=1 TO LENGTH(S) DO 
BEGIN C:=S[1]1: EXPI1O(CLENGTH(S)-1,E10): V:=CORD(C)-48)#E10: N:=N+V: END: 
VALEUR:=N: 
END: 


PROCEDURE EMPILE(C:CHAR; VAR S:STRING):; 
VAR AS,NS :STRING; 
BEGIN AS:=S; NS:=CONCAT(S,’ ’);: NS{LENGTH(S)+i]1:=C; S:=NS;: END: 


PROCEDURE SWITCH(VAR S:BOOLEAN) : 
BEGIN IF S THEN S:=FALSE ELSE S:=TRUE END: 


Co 0 0 06 0 04 0 0 06 0 0 0 0 0 06 08 0 0 D 06 0 6 0 0 D D D 0 0 D 0 D D 06 0 D D D D D 06 0 D D D 0 D 06 0 D D D D D D 0 D D 26 D 0 D D 0 D D D 0 D 0 0 26 à 0 + ) 


+ 
Ce INITIALISATIONS ") #4 
CRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNRRRRRRRRRRRRRRRR ) 
PROCEDURE INIT: ba 
BEGIN è 
HOME : = CHR (27) ; EOL : =CHR(29) ; BS : =CHR (8) ; SON: =CHR(7) ; INV:=CHR(20);NORM:=CHR(20); JM 
CR:=CHR(13); FS:=CHR(21); SP:=’ *; BONSET :=[/0’..9°,FS,BS,SP,’F’]; 3; 
WRITELN (’PATIENCE ,R.A.Z DU TABLEAU’); ra 


FOR 1:=1 TO MAXLIGTB DO FOR J:=1 TO MAXCOLTB DO TBII,J1:=0: 
END: 


Mers s 


Cat 0 08 06 08 0 06 0 0 0 06 0 0 0 08 0 0 D 06 0 0 0 0 D D 0 0 D D D D 06 3e 06 0 D D 0 D D D 0 D D D D D 06 0 D D 0 D D 6 0 D D D D D 06 0 D D 0 D D 0 0 dt no + ) 
C=æ SAISIMULTIPAGE #+) 
C= #*) 
Cr #*) 


CRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRNRRRRRRRRRTRRRRRR ER) 


(+ MAXCOL : NOMBRE MAXI DE COLONNES DU TABLEAU *) 
C# MAXLIG : NOMBRE MAXI DE LIGNES DU TABLEAU #) 
(# PASCOL : NOMBRE DE COLONNES PAR PAGE 2) 
C# PASLIG : NOMBRE DE LIGNES PAR PAGE #*) 
(# LARLIBV : LARGEUR DES LIBELLES VERTICAUX “) 
(# LARGCOL : LARGEUR DES COLONNES #) 
Ce LH : TABLEAU CONTENANT LES LIBELLES HORIZONTAUX #*) 
Cæ LV : TABLEAU CONTENANT LES LIBELLES VERTICAUX #) 
C# TB : TABLEAU D’ENTIER A SAISIR/MODIFIER #*) 
Ce #) 
(# ATTENTION: RESPECTER LA COHERENCE DES PARAMETRES #*) 
Cr (EX AUTANT DE LIBELLES HOR QUE DE COLONNES #) 
Ca MAXCOL MULTIPLE DE PASCOL #) 
Ca MAXCOL MULTIPLE DE PASLIG #) 


PROCEDURE SAISIMULTIPAGE(MAXCOL, MAXLIG, PASCOL, PASLIG, LARLIBV, LARGCOL : INTEGER: 
LH:LIBHOR; LV:LIBVER;VAR TB:TAB): 


VAR TOUCHE : DIRECTION: 
C :CHAR; 
PREMCOL,DERCOL , PREMLIG, DERLIG :INTEGER; 
BORD, VERT :BOOLEAN: 


PROCEDURE PRINTVERT:;: 
BEGIN GOTOXY(39,0);: IF VERT THEN WRITE(’"”’) ELSE WRITE(’>’) END: 


PROCEDURE SAISINT(LMAX:INTEGER: VAR N:INT:VAR CAR:CHAR): 
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VAR CHAINE :©STRING: 
LONG : INTEGER: 
BEGIN 
LONG:=0; CAR:=PRENCARCBONSET): 


IF NOT (CAR IN [’0’..°3°)> THEN EXIT(SAISINT) ELSE 
BEGIN 


CHAINE:="’"; 
WHILE CCAR IN [’0°..°93°]1) AND CLONG<LMAX) DO 
BEGIN 

LONG:=LONG+1;: 

IF LONG=LMAX THEN BEGIN N:=0; WRITECSON) 


EMPILE(CAR,CHAINE): CAR:=PRENCARCBONSET) 
END: 


VALC(CHAINE,N): 
END: 
END: 


EXIT(SAISINT): END; 


PROCEDURE SAISIPAGE(CPREMCOL, DERCOL, PREMLIG,DERLIG:INTEGER):; 
VAR NUL,NUC :INTEGER: 


X,Y :INTEGER: 


PROCEDURE CADRE: 
VAR I:INTEGER: 


BEGIN 
4 PAGECOUTPUT); MESSAGE(O,’->,<-,SP,0..9, F POUR FINIR’); 
= PRINTVERT; GOTOXY(LARLIBV,2): 
= FOR I:=PREMCOL TO DERCOL DO WRITE(LHIIJ:LARGCOL); GOTOXY(O,3); 
L FOR I:=1 TO LARGCOL*«(DERCOL-PREMCOL+1)+LARLIBV+1 DO WRITE(’-’); WRITELN; 
FOR I1:=PREMLIG TO DERLIG DO 
ds BEGIN 
Ë WRITECLV [1] :LARLIBV) ;WRITE(’I’); 
25 FOR J:=PREMCOL TO DERCOL DO 
= BEGIN WRITECTB(I,J1:LARGCOL-1):WRITE(’:°); END; 
= WRITELN: 
= END; 
E= FOR I1:=1 TO LARGCOL=(DERCOL-PREMCOL+1)+LARLIBV+1 DO WRITE(’-’): 
END; 


PROCEDURE SAUTE: 


PROCEDURE BAS: 

BEGIN 
IF NUL=DERLIG THEN BEGIN TOUCHE:=VBAS:EXIT(BAS) END: 
Y:=Y+1: NUL:=NUL+i 

END: 


PROCEDURE HAUT: 
BEGIN 


IF NUL=PREMLIG THEN BEGIN TOUCHE:=VHAUT:EXIT(HAUT) END: 
Y:=Y-1: NUL:=NUL-1: 
END: 


PROCEDURE GAUCHE: 
BEGIN 


IF NUC=PREMCOL THEN BEGIN TOUCHE:=VGAUCHE:EXIT(GAUCHE) END: 
:=X-LARGCOL; NUC:=NUC-1;: 
END: 


PROCEDURE DROITE; 
BEGIN 


IF NUC=DERCOL THEN BEGIN TOUCHE:=VDROITE:EXIT(DROITE) END: 
:=X+LARGCOL: NUC:=NUC+1: 
END: 


BEGIN 


IF (C=°F’) OR (C IN [’0°”..°9°]1) THEN EXIT(SAUTE); 
IF C=SP THEN BEGIN SWITCH(VERT);: PRINTVERT: EXIT(SAUTE) END; 
IF VERT THEN IF C=BS THEN HAUT ELSE BAS 


ASS USE DIEEEIEEE 
aa 
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ELSE IF C=BS THEN GAUCHE ELSE DROITE: 
END: 


BEGIN (* CORPS DE SAISIPAGE x) 


X:=LARLIBV+1; :=4; NUL:=PREMLIG; NUC:=PREMCOL: 
IF NOT BORD THEN CADRE; 
REPEAT 


TOUCHE:=NEANT; GOTOXY(X,Y): SAISINT(LARGCOL,TB[INUL,NUCI,C);: 
GOTOXY(X,Y); WRITE(TBINUL, NUC] :LARGCOL-1) ;WRITE(”’:°3; GOTOXY{X,Y);: SAUTE: 
UNTIL (TOUCHE>NEANT) OR (C=°F"’) 
END: 


PROCEDURE PAGEGAUCHE:; 
BEGIN 
IF PREMCOL=1 THEN BEGIN BORD:=TRUE; WRITE(SON);: EXIT(PAGEGAUCHE) END 
ELSE BEGIN PREMCOL:=PREMCOL-PASCOL; DERCOL :=PREMCOL+PASCOL-1 END: 
END: 


PROCEDURE PAGEDROITE: 
BEGIN 
IF DERCOL=MAXCOL THEN BEGIN BORD:=TRUE; WRITECSON); EXIT (CPAGEDROITE); END 
ELSE BEGIN PREMCOL:=PREMCOL+PASCOL; DERCOL:=PREMCOL+PASCOL-1; END; 
END: 


PROCEDURE PAGEHAUT:; 
BEGIN 
IF PREMLIG=1 THEN BEGIN BORD:=TRUE: WRITE(CSON); EXIT(PAGEHAUT); END 
ELSE BEGIN PREMLIG:-PREMLIG-PASLIG; DERLIG:=PREMLIG+PASLIG-1 END; 
END: 


PROCEDURE PAGEBAS; 
BEGIN 


IF DERLIG=MAXLIG THEN BEGIN BORD:=TRUE; WRITECSON); EXIT(PAGEBAS); END 
ELSE BEGIN PREMLIG:=PREMLIG+PASLIG: DERLIG:=PREMLIG+PASLIG-1; END: 
END: 


BEGIN (* CORPS SAISIMULTIPAGE *#) 
PREMCOL:-=1; DERCOL:=PREMCOL+PASCOL-1; PREMLIG:-=1; DERLIG:=PREMLIG+PASLIG-1; 
VERT: =FALSE:; 
REPEAT 
SAISIPAGE(PREMCOL, DERCOL, PREMLIG,DERLIG); BORD:=FALSE: 
CASE TOUCHE OF 
VGAUCHE :PAGEGAUCHE; VDROITE :PAGEDROITE: 
VBAS :PAGEBAS: VHAUT :PAGEHAUT 
END: 
UNTIL C=°’F°;: 
END: 


Cm mm me me mm 26 26 26 26 26 06 06 DE DE 2 HE DE D D 26 DE 6 26 D D DE DE DE DE 2 D HE DE D HE DE D DE DE DE D DE DE D DE DE DE DE 6 M DE 26 28 26 D 6 96 DE 9 6 06 26 De 26 26 3 6 JE 36 26 6 ) 


Cæ PROGRAMME PRINCIPAL r) 


Ce 26 26 36 3e 2e 26 36 36 36 2e 26 6 9e Je 26 6 26 36 3 26 Je 6 36 36 36 D 6 26 6 36 36 Je 6 6 26 36 Je 36 36 6 26 26 36 Je 36 36 M Je M 36 26 A 36 M Je M M Je 36 36 M M 1 Je M 5 36 36 26 D 26 36 3e 6 2e ) 


BEGIN 
FOR I1:=1 TO MAXCOLTB DO STR(I,LBH(T}); FOR I:=1 TO MAXLIGTB DO STR(CI,LBVEII); 
(* PREMIER ESSAI x) PAGECOUTPUT); WRITELN(’PREMIER ESSAI’); INIT: 
SAISIMULTIPAGE(1S,20,5,10,2,4,LBH,LBV,TB): 
(x DEUXIEME ESSAI *) PAGE<OUTPUT); WRITELNÇ’DEUXIEME ESSAI’); INET; 
SAISIMULTIPAGE(9,38,3,1S3,4,10,LBH,LBV,TB); 

END. 
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D 


Fondu enchaîné 


Th Charlier de Chily 


Particulièrement porté sur les applica- 
tions graphiques de l'Apple, je me 
suis penché avec délectation sur le 
programme de Fondu Enchaîné pro- 
posé par Denis Sureau dans le 
Pom's 7. Je dois toutefois lui faire un 
petit reproche sur le plan du vocabu- 
laire, en ce sens que les opérations 
qu'il effectue ne me semblent pas ré- 
pondre à la définition exacte du 
fondu enchaîné” qu' consiste, selen 
le Petit Larousse, en l'apparition en 
fondu d’une image avec disparition 
de la précédente. 


2 


En fait, le programme en question 
réalise surtout un transfert rapide 
d’une page graphique à l’autre. 


Partant de cette constatation, je vous 
présente ci-après une petite routine 
en assembleur qui respecte un peu 
plus le sens des mots. 


Si vous avez chargé un graphique 
dans la page 1 et un autre dans la 
page 2, il suffit de faire CALL 768 
pour en lancer l’exécution. 


La première partie de ce programme 
peut ètre utilisée afin de superposer 
deux images graphiques et, si le 
transfert se fait dans cette version de 
base de la page 2 vers la page 1, il 
est à noter que les modifications sui- 
vantes permettraient de faire l'in- 
verse : 


Ligne 51 INIT LDA #$40 
Ligne 53 LDA #$20 
Ligne 56 LDX #$60 





Programme Fondu Enchaîné 


Î DRS $30û 

2 DPBYTE ER %6 

3 ARBYTE EOU $8 

4 COMPTEUR ER $18 

5 # 

6 *INITIALISATION DES OOINTEURS 
7 + 


8 LDA #$0 

9 STA DPBYITE 
10 STA ARBYTE 
11 JSR INIT 


12 ÉRHHHAHHHES 
13 #SUPERPOS TION 
14 # 1+2-)1 + 
LS HER EE 
16 BCLSUP LDA (DPBYTE),YŸ 


17 ORA (ARBYTE) ,Y 
18 STA  (ARBYTE), 
19 LDA #50 

20 STA  COMPTEUR 
21 LDA #10 

22 LOOPI INC  COMPTEUR 
2 CM  COMBTEUR 
24 BNE LOOPI 

25 INY 

26 BNE  BCLSUP 

27 INC ARBYTE+$: 
28 INC DPBYYE+$! 
29 CPX ARBYTE+$1 
30 BNE BCP 

ji JSR INIT 


S2 HÉREN RENE 
33 # TAANSFERT # 
H #  2-}! + 
SO HER 


36 BCLTRA LDA (OPBYTE),Y 
37 STA  {AABYTE) ,Y 
RE 
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its 


EL 


38 LDA #$0 

33 STA COMPTEUR 
à LDA #10 

41 LOOP2 INC COMPTEUR 
42 CMP  COMPTEUR" 
& BNE  LDOP2 

CU INY 

45 BNE BCLTRA 
46 INC ARBYTE+$: 
47 INC DOBYTE+S: 
CU) CPX ARBVTE+$: 
43 BNE  BCLTRA 
90 RTS 

ot INIT LDA #$2 

92 STA ARBYTE+$1 
53 L #$ac 

sé STA DPBYTE+$: 
99 LDY #$0 

36 LDX #$40 

97 RTS 

58 FIN 
Récapitulation 


#300. 51 


0300- A9 00 85 06 85 08 20 45 
0308- 03 Bi 06 11 08 91 08 À9 
0310- 00 45 18 A9 OR E6 18 C5 
0318- 18 DO FA C8 DO EB E6 09 
03520- E& 07 E& 09 DO ES 20 45 
0328- 03 Bi 06 91 08 AS 00 & 
0330- 18 A9 04 E6 18 CS 18 DO 
033B- FA C8 00 ED E6 09 E6& 07 
0340- E4 09 DO ES 60 A9 20 85 
0348- 09 A9 40 85 07 AD & À 
0350- 40 60 


TJftaareséhot henri 
bisenteet hs h pau d 


Modification de la 
touche SHIFT 


De nombreux programmes offrent la 
possibilité d'utiliser la ”’modification 
de la touche SHIFT” pour obtenir 
par soft les minuscules au clavier: 
c'est le cas en particulier d'Applewri- 
ter Il et du moniteur étendu de 
Thierry Le Tallec (Pom's 8). Pour 
réaliser cette modification , il suffit 
tout simplement de relier à l’aide 
d'un fil la patte du bouton 2 de la 
broche des manettes de jeu à une 
pette barre verticale située derrière le 
clavier {la deuxième à partir de la 
droite). 


N AN? 
ES Gct 
Qc} co 
A3) JTROSE 
cm AN, PB? 
AN I BA 
AN Be 
nc +SY 






Connecteur 
Manette 
de Jeu 


Clavier 


Bien entendu, pour pouvoir voir les 
minuscules, il faut disposer d’une 
ROM génératrice de caractères en 
minuscule, ou utiliser un programme 
comme Âpplewiter Il qui affiche les 
majuscules en inverse. 


La barre est reliée dans le clavier à la 
touche SHIFT, qui est ainsi connec- 
tée au bouton 2. Il suffit pour un 
programme de lire l'adresse corres- 
pondante pour voir si la touche 
SHIFT est enfoncée, et agir en 
conséquence. 
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Gestion de fichiers avec RWTS 


Ce n'est un secret pour personne : le 
DOS de l’Apple Il n'est pas des plus 
rapides, notamment lorsqu'il li faut 
gérer des fichiers de données. Par- 
tnt de cette constatation, certains 
ont conçu, réalisé et commercialisé 
des systèmes DOS complets, destinés 
à remplacer ou relayer le système 
standard. 


Cet article ne se propose pas de 
vous donner un tel système (un nu- 
méro spécial de Pom's n’y suffirait 
pas, sans parler des heures de travail 
que cela supposerait..). En fait, il 
s'inscrit dans le prolongement des ar- 
ticles déjà publiés sur le thème des 
fichiers, pour. illustrer cette fois une 
méthode de gestion de table d'index 
par programme assembleur et l'accès 
"direct” aux disquettes par RWTS. 


Le système s'applique à la gestion 
d'un gros fichier de données (placé 
dans le drive 2) qui se suffit à lui 
même (fichier d'adresses pour mai- 
äng, par exemple), ou qui inter-agit 
avec d'autres fichiers plus petits 
{placés sur une disquette en drive 1), 
quant à eux par le DOS stan- 
ard. 


L'implantation en mémoire des routi- 
nes, tables et buffers est conçue pour 
48K de mémoire centrale (la sectori- 
sation est celle du DOS 3.3). 


La table d’index 


Rappelons qu’un élément de la table 
d'index se compose d'une clé, qui 
identifie chaque enregistrement du f- 
chier de données, et de l'adresse de 
cet enregistement sur la disquette. 
L'adresse est codée en deux octets, 
mais nous y reviendrons plus en dé- 
tail ultérieurement. 


La table est gérée par un programme 
en assembleur et se présente sous la 
forme d’un tableau en mémoire cen- 
tale, ou plus exactement d'une suc- 
cession de blocs de 256 octets cha- 
cun. Pour simplifier les choses (qui 
ne seront donc pas optimales...), 
l'adresse de début du premier de ces 
blocs doit être un multiple de 256. 
Soit PO cette adresse en décimal 
{pour le BASIC), elle se compose en 
hexadécimal_ d'un octet haut 
(HB=P0/256) et d'un octet bas tou- 
jours égal à O. 


Si LC est la longueur de la clé, non 
compiis les deux octets de l’adresse- 
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disquette, on peut mettre NC clés 
dans un bloc de 256 octets, avec 
NC=INT(256/LC2). 


Dans un bloc donné, l'octet bas de 
l'adresse du premier caractère de la 
dernière clé que l’on peut y stocker 
est OO=(NC-1)x(LC+2); l'octet 
haut de cette adresse correspond à 
HB pour le premier bloc, HB+1 
pour le second... 


Dans les deux premiers octets avant 
PO, on stocke le nombre d'éléments 
qui se trouvent dans la table, soit 
NZ= PEEKIPO— 2):256+ PEEK(PG — 1) 


L'adresse du premier caractère de la 
dernière clé de la table peut se calcu- 
ler de la façon suivante (HM=octet 
haut et LM=octet bas) : 


NB=nombre de blocs utlisés pour 
stocker les NZ clés =INT(INZ/NC) 


e Si NZ<>NCxNB : 
HM=HB+NB 
LM=(INZ-NB4NC) —1}«(LC+2) 
e SiNZ=NC4NB : 
HM=HB+NB-1 
LM=00 


Pour la suite, baptisons AMAX= 
HMx256+LM cette adresse. 


Principe de recherche 
dans la table 


Une fois entrée la clé recherchée (au 
clavier, ou à partir d’un autre fichier), 
on la stocke dans une zone de travail 
commençant en $311. Ensuite, on la 
compare à la dernière clé de chacun 
des blocs utilisés, jusqu’à ce qu'on 
trouve, si possible, celui dans lequel 
elle pourrait se situer (le premier 
pour lequel elle est inférieure ou 
égale à la dernière clé stockée). On 
explore alors ce bloc à partir de la 
première clé qu'il contient, pour voir 
si la clé recherchée s’y trouve. Dans 
tous les cas, la routine mettra en $1F 
le résultat de sa recherche (0 si la clé 
n'existe pas et 1 dans le cas 
contraire) et rangera dans $1C et 
$1D l'adresse, virtuelle ou réelle, de 
la clé recherchée dans la table. 


Cette méthode suppose que les clés 
soient classées dans l’ordre alphanu- 
mérique. Ainsi, une autre partie de la 
routine assure le décalage de la 
table, en cas de création d’une nou- 
vellk clé dont l'adresse virtuelle est 
inférieure ou égale à AMAX (en 
d'autres tennes, lorsque la nouvelle 
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cé ne vient pas en extrême fin de la 
table). 


De même, en cas d'annulation d’une 
clé qui ne serait pas la dernière de la 
table, une troisième sous-routine as- 
sure le décalage ‘vers le bas” et 
l'écrasement de la clé concernée. 


Remarques pratiques 


Le programme BASIC listé ci-après 
donne un exemple d'utilisation pour 
une table comportant 500 clés de 9 
caractères. L'adresse PO est calculée 
comme suit: 


- NC=INT(256/111=23 


- 1 faut donc 22 blocs pour contenir 
les 500 clés, soit 5632 octets, plus 
deux pour stocker NZ, arrondissons à 
5640 octets. 


- Le demrer buffer de la gestion du 
fichier (voir plus loin) commençant à 
35207, on a HB=INT((35207-5640)/ 
256)=115, et P0=115+256=-29440,. 


L'initialisation de cette table (avant 
tout traitement) se fait donc par : 


POKE 29438,0:POKE 29439,0: 
BSAVE TABLE A29438,L5640,D1 
(on la place sur la même disquette 
que les programmes, en D 


Le chargement de la table en mé- 
moire à partir des programmes se 
fera ensuite par BLOAD. 


Le fait de disposer d’une table utilisa- 
ble sous forrne d'un tableau gérable 
en assembleur présente de nom- 
breux avantages : 


- BLOAD et BSAVE sont beaucoup 
plus rapides que la lecture ou l'écri- 
ture d'un fichier TEXT dans lequel 
seraient stockées les clés. 


- En mémoire centrale, vous n'avez 
plus à créer un tableau de variables 
alphanumériques pour stocker les 
clés. Vous économisez ainsi : 


e 3 octets par élément de la table 
(liés au traitement des tableaux 
par BASIC) 


e les problèmes de ‘’garbage” liés à 
la gestion d’un grand tableau dont 
les valeurs changent souvent, lors 
des décalages de la table notam- 
ment. 


- Si votre programme est interrompu 
(par RESET par exemple} vous pou- 
vez toujours sauver votre table par 
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BSAVE, alors que vous ne pourtiez 
pu sauver un tableau par PRINT 
Df.. 


La gestion du fichier de 
données 


Principes généraux 


On ufïilise la routine RWTS, qui per- 
met de lire ou d'écrire directement 
un secteur (soit 256 octets) sur la dis- 
quette. 


Revenons tout d'abord à l'adresse 
des enregistrement évoquée plus 
haut. Elle est codée sur deux octets, 
avec : 


e octet 1: piste physique sur la dis- 
quette (P) 


e octet 2: 4 bits de droite = sec- 
teur physique (S) 


: 4 bits de gauche = posi- 
tion de l'enregistrement 
dans le secteur (PO). 


Ainsi, pour lire un enregistrement, 
par exemple, on découpe le 
deuxième octet de l'adresse stockée 
dans la table d'index, on va lire le 
secteur S de la piste P dans un buf- 
fer, et l'on sait alors que les données 
de l'enregistrement concerné com- 
mencent en PO dans ce buffer. En 
fait, les positions étant comptées à 
partir de 0 et si LE est la longueur de 
l'enregistrement, le premier com- 
mence en 0, le second en LE, le troi- 
sième en 2+LE.. Tout dépend bien 
sûr de LE et l'on voit bien que, dans 
le système présenté ici, la longueur 
de l'enregistrement ne doit pas dé- 
passer 256 caractères (c'est un 
exemple simplifié ne l’oublions 
pas. ). 


ll est certain également que l’effica- 
cité de l'occupation de la disquette 
dépend du rapport entre LE et 256 : 
si vos enregistrements font 130 ca- 
ractères, vous ne pouvez en mettre 
qu'un par secteur, et perdez ainsi 
presque la moitié de la capacité de 
stockage. Autant dire qu'il vaut 
mieux s'arranger pour n'avoir que 
128 caractères par enregistrement au 
lieu de 130! 


La disquette "Fichier” n'est pas ini- 


tialisée selon la procédure standard 
(voir le programme INIT ci-après). 
On utilise la commande de forma- 
tage de RWTS (Cf Manuel DOS 3.3) 
et l'on éciit ensuite sur le secteur O 
de la piste O les informations néces- 
saires à la gestion du fichier. À partir 
du secteur 1 de la piste O jusqu’au 
secteur 15 de la piste 34, tous les 


secteurs sont disponibles pour vos 
enregistrements. 


Une sous-routine spéciale assure le 
transfert des données des variables 
de l'enregistrement vers le buffer du 
fichier et du buffer vers les variables. 
En effet, utiliser des instructions 
PEEK et POKE retarde sensiblement 
les opérations de lecture/écriture et 
suppose l'emploi de variables alpha- 
numériques dont le contenu change 
à chaque transfert de caractère, d’où 
saturation de la mémoire. 


Initialisation d’une disquette 
Fichier 


Le seul paramètre à fournir est la 
longueur de l'enregistrement LE 
(ligne 15 du programme INIT) Le 
RUN de ce programme assure en- 
suite l'initialisation d’une disquette 
purs placée dans le drive 2. c'est-à- 
ire : 


- formatage de la disquette 


- écriture en piste O/secteur O (physi- 
ques) des paramètres de départ: 
première piste jamais utilisée (0) et 
premier secteur jamais utilisé (1), 
première piste et premier secteur 
libres (également O et 1}, nombre de 
zones par secteur (INT(256/LE)), 
nombre de zones utilisées dans le 
premier secteur libre (0), adresse de 
la dernière zone libérée (piste=0 et 
secteur=0) mise à O pour signaler 
l'absence de zones libérées pour 
l'instant, longueur de l’enregistre- 
ment 


À noter que le terme ‘’secteur” emn- 
ployé ci-dessus se rapporte à la défi- 
nition de l'adresse, c'est-à-dire qu'il 
comporte à la fois l'indication du sec- 
teur physique et de la position dans 
ce secteur ; il s'agit donc d’un ”sec- 
teur logique”. 


Utilisation des routines 


L'instruction ”&’” permet d'accéder 
aux traitements de gestion du fichier 
(la ligne 2 du programme BASIC de 
démonstration place à l'adresse $3F5 
un JMP $8E70). Quatre instructions 
sont ainsi disponibles : 


e &W: écriture d’un enregistrement 
© &R : lecture d’un enregistrement 


e &M: modification d'un enregistre- 
ment 


e &A: annulation d'un enregistre- 
ment. 


Au niveau du BASIC, vous n'avez 
plus à vous préoccuper de l’affecta- 
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tion des adresses aux enregistrements 
ou de la récupération des adresses li- 
bérées par des annulations d’enregis- 
trement:; tout cela est pris en charge 
par les routines assembleur. 


Quelques mots maintenant au sujet 
des variables BASIC qui constituent 
l'enregistrement. 


Ce sont des variables alphanuméri- 
ques simples (27 au maximum) dont 
il convient de spécifier le premier ca- 
ractère du nom (2$="V” dans notre 
exemple) et le nombre diminué de 1 
(soit 2 dans notre exemple). Les va- 
riables utilisées ci-après sont ainsi 
VAS, VBS et VC$. 


Si vous voulez utiliser 5 variables 
dont le non commence par W, il 
vous suffit de modifier la ligne 4 
comme suit : 


… : Z$="W”": POKE 250,ASC(Z$): 
POKE 2494: WA$=""WB$= ""”: 
WC$=""WD$="".WE=""” 


Les routines assurent ensuite auto- 
matiquement le transfert du contenu 
de ces variables déclarées dans l’en- 
registrement sur disquette et récipro- 
quement. À noter que la longueur de 
chacune de ces variables est enregis- 
trée en même temps que son 
contenu : n'oubliez donc pas de ra- 
jouter un octet par variable lorsque 
vous calculez votre LE. 


Attention également, en ce qu 
concerne le transfert enregistrement 
vers variables”, aù fait que l'on 
court-circuite la procédure Applesoft 
d'affectation des valeurs aux varia- 
bles alphanumériques et de contrôle 
de la place libre (le fameux FRE(O)). 
C'est pourquoi nous utilisons ici l'une 
des versions des routines FRE pré- 
sentées dans le numéro 2 de Pom's 
afin d'effectuer si nécessaire le ”’Gar- 
bage Collection” après chaque opé- 
ration de lecture (CALL 37500). Ne 
pas le faire, notamment au cours 
d'une lecture séquentielle du fichier, 
risque de laisser ‘descendre les 
chaînes de caractères jusqu’au bas 
de la mémoire, avec les résultats sur- 
prenants que cela suppose ! 


Enfin, notons que les disquettes ”’Fi- 
chier” ainsi gérées sont copiables 
sans problème par COPYA. 
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Programme INIT 


1 REM * INITIALISATION D’UNE DISQUETTE 
FICHIER EN D2 * 

2 REM 

10 HIMEM: 29900 

15 LE = 100: REM LONGUEUR DE L°’ENREGIST 
REMENT 

20 DIM Z%(30) 

25 REM TABLE IOB ET TABLE CARACTERISTI 
QUES A PARTIR DE 299320 - ROUTINE 
D'APPEL A RWTS EN 768 

30 FOR I = O TO 28: READ Z2%x(I): NEXT 

40 FOR I = O TO 20: POKE 299320 + I,2%{I 
): NEXT : FOR I = O TO 7: POKE 76 
8 + 1,2Z%(21 + 1): NEXT : CALL 768 

50 DATA 1,936,2,0,0,0,241,116,0,156,0, 


0,4,0,0,96,1,0,1,239,216,169,116, 
160,224,32,217,3,96 
POKE LES PARAMETRES DE LA DISQU 
ETTE À PARTIR DE 785 ET LES ECRIT 
ENSUITE EN PISTE O/SECTEUR O 
INT (256 / LE): POKE 785,0: POKE 
786,1: POKE 787,0: POKE 788,1: P 
OKE 7893,N: POKE 790,0: POKE 791,0 
: POKE 792,0: POKE 793,LE 
70 POKE 299324,0: POKE 29925,0: POKE 293 
28,17: POKE 29929,3: POKE 29932,2 
: POKE 29936,2: CALL 768: END 


55  REM 


€E0 N = 


Programme LIT-TF 


Q REM LECTURE INTEGRALE DU FICHIER 
1 HIMEM: 29437 
2 POKE 1013,76: POKE 1014,112: POKE 101 
5,142: FOR I = O TO 22: READ 2%: 
POKE 35975 + I,2Z%: NEXT 
3 DATA 1,96,2,0,0,0,152,140,0,156,0 
»0»4r0,0,936,1,0,1,2393,216,0,0 
5 Z$S = “V'": POKE 250, ASC (25%): POKE 249 
°2:VAS = “‘"S:VBS = ""SVCS = 
10 DS = CHRS (4): PRINT DS'”"BLOAD TABLE* 
: PRINT DS"BLOAD WRMA.OBJ'‘*: PRINT 
DS'"BLOAD VAR.OBJ”": PRINT DS'"BLOA 
D FRE(2)" 
20 AO = 29440:L = S:MX = 242:N = 23:HO0 - 
115:LE = 100:N2Z = PEEK (CAO - 2} 
“ 256 + PEEK (AO - ï} 
30 NB = INT (NZ / ND):HM = HO + NB:LM = 
CENE - NÉ + N) - 13 + 6L + ÿi3 IF 
NZ = N * NB THEN LM = MX:HM = HA 
A L 
40 AM = HM # 256 + LM:A = AO 
SO Z$ = "“"2:I = 1 
60 ZS = 2S + CHRS ( PEEK ÇA + I - 1)2::1 
= ll +1: IF I < = L THEN 60 
70 POKE 29, INT (A / 256): POKE 28,A - 
(256 * INT CA / 256): POKE 9,L: 
POKE 35215,LE: & R: CALL 37500 
75 PRINT 25%: PRINT VAS: PRINT VBS: PRIN 
T VCS: PRINT : IF A = AM THEN EN 
D 
80 IF A = AO + MX THEN HO = HO + 1:4 - 
HO # 256:AO = A: GOTO SO 
30 A = A + L + 2: GOTO 50 
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Programme TEST.RIA. WRMA.VAR 


1 HIMEM: 29437 
2 POKE 1013,76: POKE 1014,112: POKE 101 


5,142: FOR I = O TO 22: READ 2x: 
POKE 3597$S + I,2%: NEXT : REM PO 
KE JMP ADRESSE POUR & - POKE TABL 


E 10B + TABLE CARACTERISTIQUES 
1,96,2,0,0,0,152,140,0,156,0, 
0,4,0,0,96,1,0,1,239,216,0,0 
100:PO = 29440:HB = PO / 256:LC 
S:L2 = LC + 2:NC = INT (256 / 
2):00 = (NC - 1) * L2:AI = PO - 
:LI = S5640:2$ = “V'": POKE 250, AS 
C (Z2$): POKE 249,2:VAS = ‘"':VBS = 
"es VCS = REM TOUS LES PARAM 
ETRES DU FICHIER SONT DEFINIS ICI 
S BLS = * *:DS = CHRS (4):RUS = 
DS + "“PR#O": PRINT DS"BLOAD RIA. 
OBJ'"*: PRINT DS“BLOAD WRMA.OBJ": P 
RINT DS'”"BLOAD VAR.OBJ": PRINT DS" 
BLOAD FRE(2)": GOTO 100 
PAR SECURITE TOUS LES PARAMETRE 
S SE TROUVANT DANS DES VARIABLES 
DE TRAVAIL SUSCEPTIBLES D’ETRE UT 
ILISEES PAR D’AUTRES ROUTINES ASS 
EMBLEUR SONT “REPOKES'” AVANT CHAQ 
UE APPEL A LA ROUTINE DE GESTION 
DE TABLE D’INDEX (GOSUB 30) 
30 POKE 6,0: POKE 7,HB: POKE 8,00: POKE 
3,LC: POKE 207,L2: POKE 28,A1: P 
OKE 29,A2:NB = INT (NZ / NC):HM 
= HB + NB:LM = (NZ - NB = NC) - 
1) # L2: IF NZ = NC * NB THEN LM 
= OO:HM = HM - 1 
35 POKE 26,LM: POKE 27,HM: RETURN 
100 PRINT DS"BLOAD TABLE":NZ + PEEK (A 
1) »* 256 + 
RUS = 
PRINT “NZ="*NZ: PRINT : PRINT 
2-MOD 3-CONS 4-ANN. 
: GET Zs:Z2%X = VAL (ZS)! 
1 OR 2% > S THEN 110 
PRINT : IF Z2%x = 5 THEN POKE AI, IN 
T (NZ / 256): POKE AI + 1,NZ - «(2 
S6 *# INT (NZ / 256): PRINT DS"B 
SAVE TABLE,A"AI",L"'LI"“,D1": PRINT 
DS'"CLOSE": END 
IF NZ = O AND 2% > 1 THEN 
AS DE CLES“: GOTO 110 
IF NZ = 500 AND 2% = 1 THEN 
*CAPACITE TABLE ATTEINTE": 
10 
INPUT "CLE : 
C THEN 130 
REM LA CLE S$ EST POKEE A L’ADRESS 
E S$S311 (ZONE “"CLE"“ DE LA ROUTINE 
ASSEMBLEUR) 
140 SS = LEFTS (SS 
TOLLC 2 CTI)1= 
2): POKE 784 + 


3 DATA 


4 LE = 


NT u 


25 REM 


“1-CRE 
S-FIN “* 
IE Z%x < 


110 


120 


125 PRINT "“P 


126 PRINT 
GOTO 1 
130 "#:S8: IE 


LEN (CSS) > L 


135 


+ BLS,LC): FOR I = 1 

ASC ( MIDS (SS,I,1 

1,2Z(I1): NEXT : GOS 
UB 30: ON Z%x GOTO 150,2350,250, 2350 

IF NZ = O THEN 170 

CALL 36O000:A1 = PEEK (28):A2 - PE 
EK (29):A0 = Al + 256 # A2: IF P 
EEK (31) = 1 THEN PRINT “EXISTE 
DEJA"“: GOTO 110: REM AO=ADRESSE 
REELLE OU VIRTUELLE DE LA CLE DA 
NS LA TABLE 

INPUT “DONNEE : 


150 
160 


j170 “>; VAS: INPUT “DONNE 


hrrètsi2re 
lisses 


PEEK ÇAI + 1): PRINT 











E : “;VBS: INPUT “DONNEE : "“;VCS =  PEEK (24):21 = PEEK (6):22 = 


17S IF LEN (VAS) + LEN (VBS) + LEN « PEEK (7): CALL 37500 
VCS) > LE - 3 THEN PRINT “TROP L | 265 PRINT “DONNEE : “VAS: PRINT “*DONNEE 
ONG“: GOTO 170 : “VBS: PRINT “DONNEE : “VCS: ON 
178 IF NZ = © THEN AO = PO: POKE 28,0: Z%x GOTO 110,270,280,290 
POKE 29,HB: GOTO 190 270 ZLS = “NOUVELLE DONNEE : “: PRINT ZL 
180 IF AO € = HM »# 256 + LM THEN GOSU S;2: INPUT VAS: PRINT ZLS;: INPUT 
B 30: CALL 3676: REM DECALAGE P VBS: PRINT ZLS;: INPUT VCS 
OUR INSERTION DANS LA TABLE 275 POKE 35209,P: POKE 6,21: POKE 7,22: 
1930 FOR I = 1 TO LC: POKE AO + I - 1,Z( POKE 35215,LE: & M: GOTO 110 
12: NEXT :NZ = NZ + 1: REM MET L | 280 PRINT “APPUYEZ SUR UNE TOUCHE"; : GE 
A CLE A SA PLACE DANS LA TABLE T 2$: PRINT : GOTO 110 
200 & W: IF PEEK (35988) = 255 THEN P | 290 INPUT “ANNULATION CONFIRMEE ? “;25S: 
RINT “PLUS DE PLACE": POKE 35988, IF ZS < > "“O* THEN 110 
0 300 IF AO < HM * 256 + LM THEN GOSUB 3 
205 GOTO 110 O: CALL 36314: REM DECALAGE DE L 
250 CALL 36000:A1 = PEEK (28):A2 = PE A TABLE POUR ECRASER LA CLE ANNUL 
EK (29):AO0 = A1 + 256 * A2: IF P EE 
EEK (313 = O THEN PRINT "N’EXIST | 310 NZ = NZ - 1: POKE 8,S: POKE 24,P: & 
E PAS“: GOTO 1i0 A: GOTO 110 
260 POKE 35215,LE: & R:S = PEEK (8):P 
** D SR HEAR HE 
ï: 2: # Liga 40 Si LDA (ABEX),Y COMPARAISON DE LA CLE AVEC LA DERNIERE 
2: 3 :# RECHERCHE/INSERTION/RANULATIONS 1.5 &i CÆ CLE,X  :DU BLOC CARACTERE PAR CARACTERE 
2 & 1€ DANS TARE D’ INDEX EN MEMOIRE # 42 BCC 53 :LA CLE CHERCHEE EST SUPERIEURE 
= 5 + PROGRAMME OBJET : RIA.OBJ + 43 JHP sé 
ï5. 6 :+ + & SS LOG ABEX+I 
e TOR HSE EH 45 CMP AMAX+t :FIN DE TABLE ? 
ee 8 ; 46 BEQ SS 
di 3 OR $8CO 47 INC ABEX+1 ‘EXAMEN DU BLOC SUIVANT 
M 10 0BJ $800 &8  LOA ABEX# 
“2 11 ADEB EPZ $6 ‘ADRESSE DESUT TABLE 49 JM 56 
12 COMX EPZ $8  :DCTET BAS ADRESSE DERNIERE CI.E D'UN BLOC | 50 55 TVA CALCUL ADRESSE VIRTUELLE DE LA CLE 
134 EPZ $9  :LONGUEUR DE LA CLE Si STX W 
14 ABEX EPZ $18  :ADRSGSE DU BLOC EXAMINE 52 SEC 
15 AMaX EPZ $1A ‘ADRESSE DERNIERE CLE DE LA TABLE sx SBC W 
16 ACLE EPZ $1C CONTIENT L'ADRESSE DE LA CIE CHERCHEE 5 TAY 
17 EX  EPZ $1F SIGNALE RESULTAT RECHERCHE 5 CPV DONX 
18 VF EPZ SE VARIABLE DE TOALAIS 6 BEQ 57 ‘DERNIERE CLE ACTUELLE=FIN D'UN BLOC 
19 APRO EPI $D6 :1DEM 57 IN 
20 L2 EP2 S$CF :LONGUEUR DE LA CLE + 2 er INY 
21 CLE EOU $311 :STOCKAGE VALEUR DE LA CLE 59 TYA 
CES nn a —— 60 CiC 
23 : RECHERCHE 61 ADC L 
24 3 ——— — 62 CIC 
25 LDA #0 63 ADC ABEX 
2% STA EX 6i STA ACLE :0CTET BAS = ABEX+Y-K+ (1 +2) 
27 LDA ADEB ‘EXAMEN PREMIER 8_0C 65 LDA AMAX+I 
28 STA ABEX 66 STA ACLE +1 
29 LDA ADEB+! 67 RTS 
3 STA ABEX+! 68 57  LDA ADEB :DEBUT D'UN NOUVEAU BLOC 
31 S6 CP AMX+I DERNIER BLOC ? 69 STA ACLE 
32 BNE Si 70 LDX AMAX+1 
ss LDA RAX 71 INX 
RU) SEC 72 STX ACLE + 
35 SBC ADEB TS RTS 
# TAY 74 S4 BENQ S8 *EGALITE CARACTERE/CARACTERE 
37 Jæ 52 T5 JP 59 
38 S1  LDY GOMX 76 SB  INX ‘CARACTERE SUIVANT S'IL EXISTE 
39 S2 LDX #0 77 CPX L 


LREAIE — un 
sèsesrT sase 
Eitrvrtr20tSssett 
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18 BEQ S10 :0K - C’EST LA DERNIERE DU BLOC 
73 INY 

80 JP Si 

81 S$0 LDR #1 :0N À TROUWVE ! 

82 STA EX 

& INY *CRRCUL ADRESSE DE LA CLE 

84 TVR 

& CLC 

86 ADC ABEX 

87 SEC 

& SBC L 

89 STA ACLE ‘OCTET BAS = ABEX+Y-X 

90 Si5 LDA ABEX+! 

91 STA RCLE +1 

g2 RTS 

3 59 LDY # *ST ELLE EXISTE LA ELE SE TROUVE DANS 
S S13 EDX #0 :CE BLOC, ON LE REPREND AU DEBUT 
3 517 LDA (ABEX), Y 

96 CMP CEE, X 

97 BCS 512 *CLE(2=CELLE EXAMINEE 

98 INY ‘LA CLE EST SUPERIEURE 

99 INY ON LA COMPARE À LA SUIVANTE 
100 TYA 

101 CLE 

102 RDC L 

103 STX VB 

104 SEC 

105 SBC 

106 TAY sY=Y-KXH(L+2) ET ON REPART... 
107 JE 513 

{08 S12 BEC Si *EGALITE CARACTERE/CARACTERE 
199 TYA ‘CLE INFERIEURE À CELLE EXAMINEE 
110 CLC :CRLCUI. DE SON ADRESSE VIRTIELLE 
111 RDC ABEX 

112 STX WP 

113 SEC 

114 SC 

115 STA AC:E ‘OCTET BAS = ABEX+Y-X 

lig JMP 515 

li7 S14 INX CARACTERE SUIVANT SI IL EXISTE 
118 CPX L 

119 BNE Si6 

120 JÆ S10 "TOUS CARACTERES SONT EGAUX 

121 S18 INY 

122 JP 517 
TE OA CE ON 27 

124 : DECALAGE POUR INSERTION 

LS = — ————————— 

126 CDA AMRX+I ON PART D£ LA FIN DE LA TABLE 
127 STA ABEX+! 

i :DA ADEB 

123 STA ABEX 

f30 LDA RAY 
131 SEC 

132 SBC ADEB 
{33 TAY 

134 CPY 00HX 
135 BEQ Ti 

136 JAP T2 
Pom's n°9 


165 T2 


169 Til 


186 T12 


LA ADEB 
STA PRO 
LDX ABEX+1 
INX 

STX APRO+I 
JSR 13 

JP T4 

LDX #0 

LDA (ABEX),Y 
STA CLE,X  :STOCKE PROVISUIREMENT L' ELEMENT 
INX :A DECALER OANS CLE 

CPX L2 

BEQ 15 

INY 

I T6 

RTS 

LEX #0 

LDY #0 

LDA CLE, X 
STA (APRO),Y 
INX 

CPX 12 

BEQ T7 

INY 

JP T8 

LDA 0opX 
STA W 

JM T9 

STY WP 

JSR T3 

INY "DECALAGE A L’ INTERIEUR D’ UN BLOC 
LDX #0 = TRANSFERT DANS ELE 

LDA CLEX  :CLE -) ADRESSE SUIVANTE DU BLOC 
STA (ABEX),Y 

INX 

CPX £2 

BER T9 

INY 

JM TI! 


:PROBLEME DES FRONTIERES DE BLOC 


DEBUT DÜ BLOC SUIVANT 


‘CLE -} DÉBUT DU BLOC SUIVANT 


#BLOC QU IL FAUT INSERE LA CÉ£ ? 


"ADRESSE OÙ IL FAUT INSERER ? 


-0EBUT DU BLOC TRAITE ? 


DECALAGE ELIBMENT PRECEDENT 


DEC ABEX+1 
JW TI 


YPASSE FIN SOC PRECEDENT (FRONTIERE) 


SÉLTTTE 
2rTrre 


si 


titte 
téssi 





51 











ANNE TRE 


52 


Ces 
197 ; DECALAGE : ECRAGER CLE RNAULEE 


QD ——— 
199 LDA ADEB  :ON PART DE LA CLE CONCERNEE 
200  STA ABEX 


201 LDA ACLE+1 
202 STA ABEX+1 


203  LDA AGE 

204 SEC 

205 SEC ADEB 

206  TAY 

207 U13 CPY O0MX 

208  BEQUI 

209 JP U2 

210 Li LOAADEB  :FRONTIERE DE BLOC 
211  STA PRO 

212  LDX ABEX4#I 

213 IN 

214  STX APRD41 :DEBUT BLOC SUIVANT 
25  LDX #0 

26  SWW 

27  LDY #0 

218 U4 LOR CAPRO), Ÿ :tER BLOC SUIVANT -} CLE 
29  STACLEX 

20  INX 

221  ÆCPx L2 

22 HE US 

23 IN 

24 IP 

225 U3 LDX 

26 LDYW 

276 LDACLE,X :REMPLACE DERNIER ELEMENT DU B.OC 
28  STA (ABEX),Y 

29 IN 

230 CPL? 

231  BEGUS 

232 INY 

23 JP 

234 US LDA APRO  :DECALAGE OANS LE BLOC SUIVANT 
235  STA ABEX 


2: ‘ Lisa 
3 :# GESTION DU FICHIER/OONNEES _# 1.5 
à # PROGRAMME OBJET + WRMAOBJ « 

D:5# # 

6 EEE HER 

1 

8 RS $9E70 

3  OBJ 5800 


10 PJU EGL $4987 :PJU/PSU = 1ERE ADRESSE LOGIQUE 

11 PSU EQu $a988 :JRAAIS GTILISEE 

!2 PPL Egu $8989 :PPL/PS = IERE ADRESSE LOGIQUE LIBRE 
13 PSL EQU $898A 

ià NIS EGU $898B :NBRE ZONES/SECTEUR PHYSIQUE 


15 NIU EU $8960 ;:NBRE ZONES LTILISEES/SECTEUR EN COURS 


16 DZLP EGU $698D ;DZLP/DZLS = DERNIERE ADRESSE LOGIQUE 
17 DZLS EAU $898E LIBEREE 


vrétensese 
ECETLE 22 


2356 LDA APRO+I 
257 STA ABEX+] 


28  LDY #0 

239  J@U7 

240 U2 SIY W *DECALAGE DANS UN BLOC 
241 © TYA 

212 CIE 

243  ADC (2 

248  TAY 2ELEMENT SUIVANT : Y=V4(L+2) 
245  EDX 40 

246 U9  LOA (ABEX), Y :ELEMENT SUIVANT -) CLE 
247  STACLE,X 

248 IN 

249 CPX L2 

250  BEG LB 

251  INY 

252 JP 

253 U8 LDY W 

254  LDI 


255 Uii LIR CE, X 
256 STA (ABEX),Y 


sCLE -) ELEMENT "ECRASE" 


257 INX 

258 CPx L2 

259 BEQ U10 

260 INY 

261 JP Uii 

262 U10 INY +DEBUT ELEMENT DEPLACE 
263 U7 LDA ABEX+: 

264 CMP AMAX+1 DERNIER BLOC ? 

265 BEQ U12 

266 JM U13 

267 Ui2 TYA 

268 Q.C 

269 ADC ADEB 

270 CNP AMAX DERNIERE CLE DE LA TABLE ? 
271 BEG Ui4 

272 Je Lis 

273 Ul4 RTS 

278 DCX “INT* 

275 E0 


!8 LE EGU $998F :LONGUEUR ENREGISTREMENT (ZONE) 

19 10B EQU $8C87 :TABLE I0B (SUIVI DE TARE CARACTERISTIQUES) 
2 CON EQU $8C93 :ORDRE POUR RWTS 

21 BUF2 ERU SBAB7 :BUFFER ENTREE/SORTIE PGUR DONNEES 

22 DM. EGU $8CSC :DPL/DS. = DERNIER SECTEUR PHYSIQUE LU 

23 DSL EQU $8C90 

24 TRAL EG SBBBS :TRANSFERT VARIABLES -) BUFFER 

25 TRA2 EOU $8BF3 :TRANSFERT BUFFER -) VARIABLES 


26 ACLEEPZ $C ADRESSE CLE LIEE A L'ENRESISTREMENT 

27L EPZS9  : LONSUEUR DE LA CLE 

28 11 EPZS$6  :POSITION OMNS LE SECTEUR PHYSIQUE 

29 22 EPZS7 :SECTEUR PHYSIQUE DE L'ADRESSE LOBIQUE 

30 S EPZS$8 :SECTEUR LOGIQUE (VARIABLE DE TRAVAIL) 

HP  EPZ$18 :PISTE PHYSIQUE /LOBIQUE (VARIABLE DE TRAVAIL) 
3% 60 BNE EXO 

B RTS «FIN INSTRUCTION # 


Jä EXA JSR $Bt :ROUTINE ROPLESOFT CHRGET 
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3 JP 60 
3 EXAO CMP #75” 


37 BNE EXAI 
dB JWP DE3 
33 EXAY CMP #°R’ 
40 BNE EXA2 
4 JP PROR 
42 EXA2 CMP #7#° 
CM BNE EXAS 
& JP PROM 
4 EXAS CMP 8’h° 
“ BNE EXA 
â7 JP PROR 
48 DEB JSR LOO 
43 JMP DESF 
S LOO LDA #0 

di STA 10B+4 
32 STA 10B+5 
3 LDA #$97 
sk STA 10B+8 
SSI LDA #$89 
% STA 10B+9 
St LDA #i 

p) STA COM 
53 JSR RH 

&@ RTS 

êt DEBF LDA PJU 
62 CMP PPL 
63 BEU 59 

64 JYP LIBO 
63 50 LDA PS 
&6 CHP PL 
67 BEQ 51 

68 J® LIBO 
69 Si LDA PA 
10 CHP #$23 
pi BNE 52 

7 LDX #$FF 
[AI STX 58% 
7 RTS 

7352 JSR 520 
7% JW 521 
7 520 LDYL 

TÈ LDA RFL 
79 STA (ACiE), YŸ 
80 INY 

8 LDR PSE 
82 STA (ACLE),Y 
83 STA S 

84 JSR OCSI 
& LEA PPL 
86 CH DL 
87 BNE GS 
88 LA 22 

45 CH St 
3 BKE S3 

91 800 LDX 21 

a BEQ 56 

3 EDA #0 

gé BQ CiC 
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: INSTRUCTION WRITE 


INSTRUCTION READ 


INSTRUCTION MODIFICATION 


INSTRUCTION ANNULATION 


-CHARGE PARAMETRES DISQUETTE 
: (PISTE O/SECTEUR 0) EN $8387 


It Y A DES ADRESSES LIBEREES 


1ERE LIBRE = 1ERE JAMAIS UTILISEE 


SIGNALE SATURATISN DISQUETTE 


AFFECTE L'ADRESSE A LA CLE 
DANS £A TABLE D’ INDEX 


‘DECOUPE LE SECTEUR LOGIQUE 


(LECT. SECT. PHYS. SI PAS DANS BUFFER 


CALCUL POSITION ZONE DANS SECTEUR 


TRANSFERT : CONTENU DES VARIABLES -à 


BUF FER 


:INDIGUE PARANETRES PISTE/SECTEUR ET 


107 S3BB STA 10B+4 ;ADRESSE DU BLFFER DANS TABLE :0B 


É) ADC LE 
6 DEX 

47 BNE 80 
38 TAX 

95 54 JSR TR! 
100 JP 56 
101 S3 JSR S3B 
102 LDA #i 
103 STA COM 
104 JSR RH 
105 JP 800 
106 S3B LOA PRE 
108 STA DPL. 
199 LDR 22 


110 STA 10B+5 


11! STA DSL 
112 LDA #$47 


153 STA 10B+4 


14 LDA 4$8h 


115 STA 10B+9 


ii RTS 

117 S6 JSR S3E 
i! DA #2 
19 STA COK 
120 JSR RH 
21 RTS 

122 S21 :NC NZU 
123 LDA KIU 
124 CP N1S 
12 BEC 97 
126 INC Zi 
127 570 JSR COR 
12 EDR S 
{2 STA PSU 
30 STA PSE 
131 571 LD #0 


ECRITURE SECTEUR PHYSIQUE SUR DISQUETTE 


PLUG DE ZONES LIBRES DANS LE SECTEUR 
PROCHAINE ZONE LIBRE 

FABRIQUE LE SECTEUR LOSIQUE 

‘HAJ DES SARAMETRES 


‘PAR SECURITE SAUVEBARDE DES PARAMETRES 


132 STA 10B+4 LORSQU'IL SONT MODIFIES 


133 STA :0B+5 


134 iDR #$@7 


135 F4 i0B+4 


136 LDA #$89 


137 ST !0B+9 


Î LDA #2 
1 STA CO4 
40 JSR Rù 
581 JP EXA 
142 S7  LDR #0 
143 STA E1 
14 STA NZU 
165 INC 22 
146 LDA 22 
147 CMP #$1C 
148 BNE 570 
143 INC PJU 
130 INC PPL 
151 EDA #0 
152 STA 22 
153 MP 570 
154 LIBO LOR BAC 


PASSAGE AU SECTEUR SUIVANT 
FIN DE PISTE ? 


PASSAGE A LA PISTE SUIVANTE 








155 CMP DZLP 
156 BNE LIBi 
157 LDA PSL 
158 CKP DZLS 
159 BNE LIBI 
160 JSR 520 *1ERE ADRESSE LIBEREE EST AUSSI DERNIERE 
161 UDA PJU  :1ERE ADRESSE LIBRE REDEVIENT 
162 STA PPL :LA PREMIERE JAMAIS UTILISEE 
163 LDA PSU 
164 STA PS. 
165 LDA #0 
166 STA DZALP 
167 STA DZLS 
168 JM 571 
169 LIB1 LDA PS  :MODIF CHAINAGE PISTES : IBEREES 
170 STA S 
171 JSR DCS1 
172 LDA PPL 
173 CMP DPL 
174 BNE LIB2 
175 LDA 22 
176 CP DSL 
HN 177 BNE LIB2  :LIT SECT. CONTENANT LA ZONE LIBEREE 
“ 178LI0 LOX 2 
M 179 BEQ LII 
Æ 180 JSR LLO 
Œ 181 JP LI 
D. 182 LLO DA #0 :CRLOUL POSITION ZONE DANS iE SECTEUR 
L: 183 LIOO CLC 
’ 184 ADC LE 
re 185 DEX 
186 BNE LI00 
187 TAX 
188 ms 
189 LI£ LDA BUF2,X :2 PREMIERS OCTETS DE LA ZONE SONT 
190 STA $330  :PISTE/SECTEUR LOSIQUE DE L'ADRESSE 
191 IX *LIBEREE SUIVANTE 
192 UDA BUF2,X 
193 STA $331 
194 JSR 520 
195 LDA $330 
1936 STA PPL 
197 LDA $331 
198 STA PSL 
199 Je S71 
200 LIB2 JSR S3B 
201 LEA #1 
202 STA CON 
263 JSR RU 
204 JK LIO 
205 PROR LDY L :CHARSE L' ADRESSE DE L’ENREGISTIOENT 
206 LDA (ACLE),Y 
207 STA P 
208 INY 
209 LDA (RELE), Y 
210 STAS 
211 JSR DCS1 
212 LA P 
213 CHP DEL 
214 BNE Ai 


PROR JSR 800 


PROA JSR LO0 


LA 22 
CP DSL 
BNE A1 
LDX 21 
BEQ A2 
JSR LLO 
JSR TRA2 
JÆ EXA 
UR P 
STA PPL 
JSR 53B 
LDA #1 
STA COM 
JSR RH 
Je À 


LIT SECT, CONTENANT L’ENREGISTREMENT 


TRANSFERT ENREGISTREMENT -} VARIABLES 


:MJ/ECRITURE DU SECTEUR PHYSIQUE / 
RE ExA L DGIQUE 
LECTURE PARRAMETRES 
LDA DZLP 
BNE TI 
LDA DZLS 
BNE Ti 
UDA P 
STA PL 
STA DZLP 
LA S 
STA P& 
STA DZLS 
JP $S71 
LDY S 
LDA DZLS 
STA S 


IL N'Y À PAS D’ADRESSES LIBEREES AUTRES 
"QUE CELLE QUI VIENT DE L’ETRE 


SAUVEGARDE SECTEUR LOGIBLE LIBERE 


LIT SECT. CONTENANT DERNIERE ADR. LIB. 


LDA P  :CHAINAGE SUR ADR. JUSTE LIBER& 
STA BUF2,X 

INX 

LDA S 

STA BUF2, X 

JP T 

LDA DZLP 

JSR S3BB 

LDA #1 

STA COM 

JSR R4 

J@ TS 

LDA DZLP ECRITURE DU SECTEUR MIS À JOUR 
JSR S3BB 

LDA #2 

STA COM 

JSR RU 
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MICRO-PERIPH 


ouvre les portes de votre Serre Ir 


NOUVEAU 


RAMEX 128 K AVEC V.C EXPANO VERSION 80-2 (5 800 F T.T_C.) 

Si vous souhaitez ullliser votre VISICALC avec : 

e 136K de mémalre + chargement d’un tableau complet en 20 secondes 
» 80 colonnes sur l'écran (logiciel compatibie avec 4 différentes cartes 
89 colonnes) 

+ Largeur de colonnee variable individuellement 

* Curseur programmable 

»* Beaucoup d'aulres améliorations très nombreuses 

(Ce logiciel qui est également compalible avecles cartes Saturn est dispo- 
nible séparément (t 570 F T.T.C.). La carte RAMEX 128 K esi dispenible 
aussi séparément pour 4 600 F T.T.C., y compris le logiciel SOL!DOS.) 


NOUVEAU 


WILDCARD {ft 400 F T.T.C) 

Celte carte équipée d'un bouton poussoir vous permet d'arrêter l'exécu- 
tion.d'un programme #1 de décharger l'élal de mémoire sur un disque. Ce 
qui veut dire que vous pouvez réaliser des copies de programmes qui 18 
sont plus protégées ou sauvegarder un programme de jeu à un niveau 
choisi. Gräcaà ces logiclals utilitaires, cette carte est de loin la plus puls- 
sante de ce genre. La Carte est llvréee vec un manuel détaillé en français. 


LES CARTES « PILOTS » 


U.TERM (1 680 F T.T.C.} 

Cette carte Qui vous donne 80 colonne s sur l'écran vous permet d’avoir 
deux jeux de caractères à la lois qui son! co-résidents dans 1a mémoire 
vive et ta mémoire morte de la carte. Par exempie, les caractères français 
mæjuscules el minusculés ainsi que les caractères anglo-saxons. Elle a 
uns lrès grande gamme ds compatibilité : APPLESOFT, PASCAL, CP/M, 
APPLEMRITER Il, etc. {Photo 2). 

U.Z80(1150 F T.T.C.): Son point fort est la vitesse : 4 MHz. Compatible evec 
tous les logiciels CP/M ou de 280 (Pholo 1). 

U-RAM18 (890 F T.T.C.) : c'est Une carte langage entièrement compalible 
avec INTEGER BASIC, PASCAL. VISICALC, aic. Pourquoi payer plus cfier? 
U-S232 (1040 F T.T.C.) : une carte de série, vitesse variable entre 75 et 
19200 bauds. Cette carte contient son propre logiciel de handshake, ce qui 
permet de faire fonctionner une imprimante à sa vitesse optimale. Compa- 
tible avec le logiciel de communication VISITERM (Photo 9} 


DIVERS POUR L'APPLE I! 


JOYSTICK TRACKBALL {880 F T.T.C) : une grende boule pour diriger vos 
navires spattaux. 

CARTE HORLOGE (1 120 F T.T.C.) : au quartz avec pile et logiciel agenda. 
ROBOCOM BITSTICK (5010 FT.T.C.} : un systèmetrès sophisliqué de desein 
graphique. 

D BASE 11 (6 600 F T.T.C.) : système de base de données relalionnel (Z 80). 
JOYSTICK KRAFT (510 F T.T.C.)et JOYSTICK TG PROOUCTS (570 F T.T.C.}: 
tebriqués sux Étsts-Unis, IIS sont d'excellentes qualité et fiabilité. 
LECTEURS DE DISOUES : loutes les configurations possibles entre 143 K 
ocléte el 2 M octets, entlérement compatiblesavec l'Apple Il. 

CCS carte synchrone (2 770 F T.T.C.) : pour dialoguer avec un IBM 

DB MASTER (3 400 F T.T.C) : très puissant. Base de données. 

DATA FACTORY (3 172 F T.T.C.} : peut-être la plus puissante des bases de 
données, 

ASCII EXPRESS PROFESSIONAL (1 930 FT.T.C.}: permet d'envoyer 
n'importe quel tichieren DOS par modem. 

MUMATH/MUSIMP Z80 (3 890 F T.T.C.) :très puissant logiciel mathémati- 
que. 

VENTILATEUR {750 F T.T.C.): se branche à gauche de l'Apple Il. Altmente 
l'Apple IL 


Ouvert du mardi au samedi : 10h-12het14h-18h 
62, rue Ducouédic - 75014 PARIS (Tél. : 321.53.16) 


NOUVEAU 


ACCELERATOR I! (5 600 F T.T.C.) 

Cette carte, fabriquée par Saturn Systems, est équipée d'un microproces- 
seur 6502 C qui tourne à 3,58 MHz et de 64 K de RAM. Cette augmentation 
de vitesse de 358 % se traduit par une augmentation de rapidité d'exploita- 
tion de tous les programmes. La carte est directement compatible avec 
tous les langages et programmes (Applesoft, Integer, Binaire, Pascal, For- 
tran 77, Forth ainsi que tous les progiciels tels que Visicaic, DB Master, 

tc.). À la commande, spécifier version Apple |! ou Apple //e. 


NOUVEAU 


PROGRAMMEUR D'EPROMS (1 740 F T.T.C.). La carte se branche dans un 

slot de l'Apple |! et permet de programmer directement les EPROMS (2758, 

2716, 2732 et 2764), Un logiciel de gestion du programmeur se trouve sur la 

carte de mémoire morte, Une carte existe également pour adapter les 
PROMS programmés sur l'Apple 1 (630 F T.T.C.) 


EXTENSIONS DE MÉMOIRE 


U-RAM 32K (1 450 F T.T.C.), U-RAM 64K (2 590 F T.T.C.}, U-RAM 128K 
(4 250 F T.T.C.) (Puolos 7 el 4). VERSA RAM émulateur de disque (680 F 
T.T.C.) 


CARTES SCIENTIFIQUES 


U-AID (5880FT.T.C.): carte enalogue digilale haute vitesse, 12 bits, 
16 gammes (Photo 6) 

Carte A/D 8 bits (1 400 F T.T.C.), 1 gamme (470 F T.T.C.) 

Carte D/A 8 bits (1 889 F T.T.C.), 1 gamme (450 F T.T.C.} 

U-BCD (1 120 F T.T.C.) (Photo 8) 

U-DT (1 350 F T.T.C.), 32 lignes entrée-sortie avec temporisateur el buffer 
U-TIM (1 120 F T.T.C.) temporisateur 

U-2 PORT (1960 F T.T.C.) : 2 portes RS 232 sur la meme carte exlensible 
jusqu'à 8 portes{Photo 5) 

THE MILL 6809 (NC) : co-processeurs à haute vitesse et de multiprogram- 
mation 

Carte 68000 (NC) 16 bits + 32 bits inlerne (Photo 3). 

Nous avons plusieurs autres cartes qui ne sont pas menlionnées ici; 
renseignez-vous 


ENSEMBLES D'EXPANSION VISICALC 


V-C 50K (3 560 F T.T.C.) : 1 carte 80 colonnes, V-C expand logiciel, U-RAR! 
32K 

V.C B2K {4580 F T.T.C.) : 1 carte 80 colonnes, V-C expand togiciel, U-RAM 
64K 

V-C 145K (8 360 F T.T.C.) : 1’carte 80 cotonnes, V.C ex pand logiciel, U-RAM 
128K 

V.C consolidator (400 F T,T.C.}: pour consolider plusieurs tableaux de VISI- 
CALC 

V-C super expand (700 F T.T.C.) : version 40 colonnes avec sauvegarde sur 
diskette en 20 secondes (le RAMEX 128K est nécessaire) 

V-C super expand 80 (900 F T.T.C.) : version 80 colonnes compatible avec 
les cartes omnivision 80, Videx et U-Term (le RAMEX 128K est nécessaire) 


NOUVEAU 


EPSON FX 60 (8 700 F T.T.C.} - PROMOTION 

Vitesse : 180 c.p.s. 80, 40, 137, 88, 98 ou 48 caractères par ligne, 
triction/trsction, 9 formats graphiques, 9 jeux de caractères, RAM avec 
logiciel ouvert pour générer volre propre jeu de caraclères, matrice de 11 
fois 9,espacament proporlionnel, mode silencieux 


Si vous ne voyez pas ce que vous cherchez ou si vous désirez de plus 
amples renseignements, téléphonez à MICRO-PÉRIPH (321.41.80). Si vous 
ne pouvez vous déplacer, téléphonez-nous pour connaître le revendeur le 
plus proche de chez vous ou complétez le bon de commande ci-dessous 
TOUTES NOS CARTES SONT GARANTIES 12 MOIS 


BON DE COMMANDE 


A découper ei envoyer à : 
MICRO-PÉRIPH, 62 rue Ducouédic - 75014 Paris - Tél : 321.596. 
Je désire racevoir rapidement, sous pli ecommandé : 


QUANTITÉ DÉSIGNATION TOTALTTC 


Total 
Fraisde port recommmandé 


Ci-joint un chéque/C.C-P. de F : 











A PO PRMENRNE Le NE 


4 


FFT 
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275 UMA P 
276 STA DZLP 
277 LDA S 

278 STA DZLS 
273 Jx 571 
280 DCS1 LDX #0 
281 STX 21 
282 STX 22 
283 LDX #4 
284 DO RO 

25 ROL 21 
286 DEX 

287 BNE DO 
288 UX #4 
289 RS 

23 21 ROR 

231 ROR 72 
292 DEX 

233 BNE Di 
2938 EDX #4 
235 CC 

236 D2 ROR 22 
297 DEX 

1; 

2 :+ 

JURET 

& :x PROGRAMME OBJET 
S.3 

Ds 

1 

() ORG $8887 
9 OBJ $800 
10 M EPT $F9 
11 AS EPZ $FA 
12 PYV  EPLZ $FD 
i3 AV EPZ $£E 
{à LV EPZ $FB 
15 NVCO  EPZ $FF 
56 NVC EPZ $FC 
17 BUF2 EG $8a87 


18 FRETOP EP $6F 


19 BUVA  LDY # 

20 STY NVCO 

21 LDY #$C1 

22 S1Y MC 

23 BUVAO LDA $69 

24 STA PIV 

5 LDA $6A 

2% STA PTV#1 
27 RTS 

28 BCLO LDY #0 

29 LDA AS 

30 CNP (PTV),Y 
31 BNE RON 

«| INY 

33 LDA (PTV),Y 
RS CMP AVC 


RANSFERT VARIABLES (-} BUFFERE 


«MAJ DES PARARETRES 


:DECOUPAGE DU SECTEUR LOGIQUE 


«1154 BITS DE GAUCHE 


:22=8 BITS D£ DROITE 


HIHI HIHI ER HET HE 


+ Lisa 


? VAR.OB] + 


NOMBRE DE VARIABLES MOINS 1 

CODE ASCII PREMIERE LETTRE 

CONTIENT ADRESSE DEDUT VARIABLE 
CONTIENT ADRESSE CONTENU DE LA VARIABLE 
“LONSUEUR DE LA VARIABLE 

NOMBRE DE VARIABLES TRAITEES MOINS i 
"CODE 2EÆ LETTRE VARIABLE TRAITÉE 


FIN ZONE CHAINES DE CARACTERES 


s8CL2CHRS(A)+$80 


*INITIALISE A LOMEM 


"RECHERCHE LE NOM DE LA VARIABLE 


:1ERE LETTRE = AS ? 


*2ÈME LETTRE = AVC ? 


DSHAFESTT 
srssesé 


al 
42 
43 K 


BNE D2 
RTS 

LDX #0 
STX S 
LDX #4 
ROR æ 
ROR S 
DEX 

BNE C0 
LDX # 
ROR 21 
ROR S 
DEX 

BNE Ci 
RTS 

LDA $$8C 
LDY #$87 
JSR 5303 
LDA #2 
STAR $8097 
RTS 

DCR “INT" 
END 


SCONSTITUE LE SECTEUR LOSIDUE 


1RPPE A AUTS 


BEG (K 
LDA PIV 
CLC 

ADC #7 
STA PTV 
BCC BCLO 
INC PTV#1 
J# BCLO 
RTS 


:PASSE A LA VARIABLE SUIVANTE 
» (7 OCTETS PLUS LOIN) 


D 
&S ; TRANSFERT VARIABLES -) BUFFER 


46 ; 





47 TRAS JSR BUM 


4B TRâ 


TRI 


BREL SIREN SE 


BAT 
ä 


8 


JSR BCLO 
INY 

LA (PT), Y 
STA LV 

STA BUF2, X 
BNE TRI 

INX 

JP TR 

IN 

INY 

LDA (PTV), Y 
STA W 

INY 

DA (PTV),Y 
STA AV41 
LDY #0 

LDA (AV),Y 
STA BUF 2,1 
INX 

INY 

CPY LV 


LONGUEUR DE LA VARIABLE 
:STOCKEE AVANT LA VALEUR ELLE MEME 


“VARIABLE = CARACTERE NUL 


*OCTET BAS ADRESSE DE LA VALEUR 


*OCTET HAUT ADRESSE DE LA VALEUR 


: TRANSFERT VALEUR -) BUFFER 


Zisseéés-s) 
Lesdénezt 
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69 BNE TRS % STA (FRETOP),Y 

10 TR2  LDA NVCO 7 INX 

71 CMP NV :DERNIERE VARIARE ? 98 INY 

7? BEG SORTI 99 EPY LV 

Ts INC NVCO  :PASSE A VARIABLE SUIVANTE 100 BNE BC2 

7 INC WE 101 BC1 JSRBCLO  :CHERCHE ADRESSE DU NOM 

TS ISR GUVAO 102 INY 

%  J@ TR 103 LDA LV 

17 SORTL RTS 104 STA (PT), V :RANGE LA NOUVELLE LONGUEUR 
TE ermmenersiraecéeren — 105 BED BC3 

13 > TRANSFERT BUFFER -) VARIABLES 106 [NY 

jee 107 LDA #6F :RANGE NOUVELLE ADRESSE DE LA 
81 TRA2 JSR BU 108 STA (PTV), Y VALEUR 
&2 8CS  LOA BUF2, X :LONGUEUR DE LA VARIABLE 109 INY 

83  STA LV 110 LDA #79 

& IN 111 STA {PTV),Y 

5 CP 112 BC3  LOA MCO 

&  BHEQBCI VARIABLE = CARACTERE NUL 113 CH W : DERNIERE VARIABLE 

8) LOAS6F :MAJ DE FRETOP (DESCENDU DE LV CCTETS) | 114 BEG SORT2 

& SC 415 INC NVCO  :PASSE A VARIABLE SUIVANTE 
49)  SBC LV 116 INC AVC 

g  STA 6 117 JSR BUVAO 

gi  LDA #70 118 JP 8C4 

g SE 40 119 SORT RTS 

%  STA #70 120 DCN "INT" 

S  LDY #0 121 END 

95 C2  LDA BUF2, X : TRANSFERT VALEUR EN COMENCANT A FRETOP 





Programme RIA. OBJ 


Récapitulation 
#RCAO.8E89 


8CA0- À3 00 85 1F A5 06 85 18 
8CAB- AS 07 85 19 C5 1B DO 09 
8CB0- AS 1A 38 ES 06 AB 4C BB 
8CB8- 8 A4 08 A2 00 Bi 18 DD 
8CC0- 11 03 90 03 4C F9 8C A5 
8CCB- 19 CS 1B FO 07 E6 19 Æ 
8CD0- 19 4C AC 8C 98 86 CE 58 
BCD8- ES CE AB C4 08 FO 10 C8 
BCEO- C8 98 18 65 09 18 65 18 
8CE8- 85 1C &S 1B 85 1D 60 À 
8CFO- 06 85 1C 6 1B E8 86 1D 
8CF8- 60 FO 03 4€ 1A 8D F8 E4 
8000- 09 FO 04 CB 4C BD &C A9 
8D08- 01 85 1F C8 98 18 65 18 
8p10- 34 E5 09 85 1C ÀS 19 85 
8D18- 1D 60 A9 00 A2 00 Bi 18 
8020- DD 11 03 BO OF C8 C8 % 
8028- 18 65 09 86 CE 38 ES CE 
8539- A8 4C {C 8D FO 0E 98 18 
BD3B- 6$ 18 86 CE 34 ES CE 85 
8040- 1C 4C 15 8D EB E4 09 
8D48- 05 4C 07 BD C8 4C 1E &D 
BD50- ÀS 1B 85 19 AS 06 85 18 
8D58- A5 1A 38 ES 06 AB C& 0B 
8D60- FO 03 4C Æ 8D AS C6 85 
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8D68- D6 46 19 E8 86 D7 20 74 
8D70- 8D 4C 85 8D A2 00 B1 18 
8D78- 9D 11 03 E8 E4 CF FO 04 
8D80- CB 4C 76 8D 60 À2 00 # 
8D88- 00 8D 11 03 91 D6 EB E4 
8DS0- CF FO 04 C8 4C 89 8D AS 
8D98- 08 85 CE 4C B4 8D 84 CE 
8DAO- 20 74 8D C8 A2 00 BD 11 
ADAB- 03 91 1B EB E4 CF FO O4 
8DBO- C8 4C R6 BD A4 CE AS 19 
80B8- CS 1D DO OA R5 06 18 65 
8DC0- CE CS 1C DO 01 60 CO 00 
80C8- FO 09 À5 CE 38 ES CF FR 
8DD0- 4C SE 8D A4 08 C& 19 4C 
8DD8- 65 8D ÀS 06 85 18 AS 1) 
8DE0- 85 19 ÀS 1C 38 ES 06 AB 
8DE8- C4 08 FO 03 4C 28 8E Æ 
8DF0- 06 85 D6 A6 19 EB 86 D? 
8DF8- A2 00 84 CE A0 00 R1 1 
8E00- 9D 11 05 EB E4 CF FO 04 
8E08- CB 4C FE 8D A2 00 Aâ CE 
8E10- BD 11 05 91 18 EB E4 CF 
8€18- FO 04 CB 4C 10 8€ AS % 
BE20- 85 18 À5 D7 85 19 À 04 
8E28- 4C 55 8E 84 CE 98 18 65 
8E30- CF AB A2 00 B1 18 9D il 
8E38- 03 E8 E4 CF FO 04 CA 4C 
8E40- 34 BE A4 CE A2 00 BD 11 
8E48- 03 91 18 EB E4 CF FO 
8ES0- C8 4C 46 8E C8 ÀS 19 C5 


(vuttoteséséee set 
véonmalirsesrsiet 


BE58- 1B FO 03 4C EG 8D 98 18 
8E60- 65 06 CS 1A FO 03 4C E8 
8E68- 8D 60 


Programme WRMA. OBJ 


Récapitulation 
#8E70. 9120 


8E70- DO 07 60 20 Bi 00 4C 70 
8E78- 8 C9 57 DO 03 4C 95 &Æ 
6E80- C9 % DO 03 4C 1E 90 C9 
8E88- 4D DO 03 4C SA 90 C9 41 
8E90- DO E1 4€ 60 90 20 9B &E 
8E98- 4C B6 8E A9 00 BD 8B &C 
8EA0- 8D 8C 8C A9 87 BD &F 8C 
BER9- A9 89 4D 90 8C A9 01 8D 
8EBO- 93 8C 20 f4 9i 60 AD 87 
6EB8- 89 CD 89 89 FO 0S 4C 8 
8ECO- 8F RD 88 89 CD 6A 89 FO 
8EC8- 03 4C 9B 6F AD 89 89 C9 
&EDO- 23 DO 06 A2 FF BE 94 BC 
BED8- 60 20 DF 8E 4C 4A 6F f& 
8EEO- 09 AD 89 89 91 iC C8 AD 
BEEB- 84 45 91 1C BS 08 20 DC 
BEFO- 90 4D 89 89 CD & 6C DO 
8EF8- {B À5 07 CD 9D &C DO i4 
8F00- A6 06 FO OA A9 00 18 6D 
8F08- 8F 89 CA D9 F9 AA 20 & 


ssre 
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&10- 8B 4C Æ 8F 20 22 &F AJ 
8F18- 01 8D 95 8C 20 14 91 4C 
8F20- 00 8F AD 89 89 8D 8B 8C 
8F28- 8D 9C 6C AS 07 8D 8C 8C 
8F30- 8D JD 6C A9 87 8D 8F 8C 
BF38- A9 8A 8D 90 &C 60 20 22 
8F40- 8F A9 02 8D 93 8C 20 14 
8F48- 91 60 FE 8C 89 AD &C 89 
8F50- CD 8B 49 FO 2A E6 06 20 
6F58- FD 90 R5 08 8D 88 89 &D 
8F60- 8A 89 A3 00 8D 8B 8C ED 
8F68- 8C 8C A9 87 8D 8F BC A9 
8F70- 89 8D % 8C A9 02 8D 95 
8F78- 8C 20 14 91 4C 73 8E A9 
BFBO- 00 85 06 BD 8C 89 EG 07 
8F88- A5 07 C9 10 DO C9 FE 87 
8F90- 89 FE 89 89 A9 00 85 07 
BFS8- 4C 57 8F AD 89 49 CD & 
8FAO- 89 DO 22 AD 8A 89 CD 8 
8FAB- 89 DO 1A 20 DF 8E AD 87 
8FB0- 89 8D 89 89 AD 68 89 8D 
6FB8- 8A 89 AS 00 8D 8D 89 & 
8FCO- 8 89 4C 62 8F AD 8A 89 
8FC8- 85 08 20 2C 90 AD 89 83 
8FT9- CD 9C 8C DO 3B AS 07 CD 
BFD8- 9D 8C DO 3à À6 06 FO 11 
8FEO- 20 E6 8F 4C F1 8F A3 00 
8FE8- 18 6D 8F 89 CA DO F9 AA 
8FFO- 60 BD 87 8A 8D 30 03 EB 
6FF8- BD 87 8A 8D 31 03 20 
9000- 8E AD 30 03 8D 89 89 AD 
9008- 31 03 8D 8A 89 4C 62 &F 


9010- 20 22 &F A9 01 8D 93 8 
9018- 20 14 91 4C DC 6F A4 09 
9020- Bi 1C 85 18 CB Bi 1€ 85 
9028- 0B 20 DC 90 A5 18 CD Æ 
9030- 8€ DO 14 A5 07 CD 9D &C 
9038- DO OD A6 06 FO 03 20 E6 
9040- 8F 20 F3 8B 4C 73 &Æ A5 
9048- 18 8D 89 89 20 22 &F A9 
9050- 01 8D 93 8C 20 là 91 4C 
9058- 34 90 20 00 8F 4C 73 BE 
9060- 20 9B E AD 8D 89 DO 18 
9068- AD 8 89 DO 13 A5 18 & 
9070- 89 89 8D 4D 89 A5 08 8D 
9078- 9 99 8D SE 29 40 €2 pe 
3080- A4 0B AD 8E 89 85 08 20 
9088- DC 90 84 08 AD 8D 89 CD 
9090- 9 8C DO 1C A5 07 CD JD 
9098- & DO 15 A O6 FO Œ 20 
90N0- E6 &F A5 18 SD 87 BA EB 
90Rg- A5 08 SD 87 BA 4C Ci 
9080- AD 8D 89 20 25 &F A9 01 
90B8- 8D 93 8C 20 14 91 4C PB 
90C0- 90 AD 8D 89 20 25 8F A9 
90C8- 02 8D 33 EC 20 14 A A5 
90D0- 18 8D 8D 89 AS 08 8D &E 
90D8- 89 4C 62 &F A2 00 86 Œ 
90€0- 86 07 A2 04 2A % 06 CA 
90E8- DO FA A2 04 A5 08 6A 66 
90F0- 07 CA 00 FA A2 O4 18 66 
90F8- 07 CA DO FB 60 A2 00 86 
9100- 08 A2 04 66 07 66 98 CA 
9108- DO F9 A2 04 66 06 66 08 


9110- CA DO F9 60 A9 8C AC 87 
9118- 20 D3 03 A9 02 8D 37 &C 
9120- 60 


Programme VAR. OBJ 


Récapitulation 
+8B87.8C3SE 


8887- A0 

&BBB- 00 84 FF AO Ci 84 FC ÀS 
8B90- 69 85 FD ÀS 6A 85 FE 60 
8898- À6 00 À5 FA Di FD DO 07 
88R0- C8 B1 FD C5 FC FO OE À 
88AB- FD 18 69 07 85 FD 90 E8 
8BB0- E6 FE 4C 98 8B 60 20 87 
8BB8- 68 20 98 8B C8 Bi! FD 85 
8BCO- FB JD 87 8A DO 04 EB 4C 
8BCA- F2 8B E8 C8 Bi FD 85 FE 
8BD0- C8 Bi FD 85 EF A9 O0 BL 
68D8- EE 9D 87 8A E8 C8 C& FB 
8BEO- DO FS ÀS FF CS F9 FO CA 
88E8- E6 FF E6 FC 20 8F 8B 4C 
8BFO- B3 8B 60 20 87 8B BD 87 
8BF8- 8A 85 FB E8 C9 00 FO iA 
8C00- A5 6F 38 ES FB 85 6F ÀS 
8C08- 70 £9 00 85 70 RO 00 BD 
8C10- 87 8A Si 6F EB C8 C& FB 
8C18- DO F5 20 98 8B C8 A5 FB 
6C20- 91 FD FO OR CB AS 6F 91 
8C28- FD C8 ÀS 70 91 FDAS FF 
8C30- CS F9 FO OR E6 FF EG FC 
8C38- 20 8F 8B 4C F6 8B 60 


Message aux créateurs de logiciel 


Nous allons bientôt commercialiser des programmes en plus de ia revue Pom's, la rémunération des auteurs 


s'effectuant selon le principe des droits d'auteur. 


Bien entendu, les programmes destinés à ce mode de distribution doivent être des produits finis, autant par la 
qualité des programmes que par celle de la documentation et par l’environnement visuel et sonore. 


Nous sommes prêts à analyser vos propositions et à vous aider à transformer des idées en produrt logiciels. 


Envoyez-nous vos contributions ; nous vous aiderons à diffuser ces programmes. 


Pseudo-opcodes 





de divers assembleurs 


Olivier herz 


A la demande de nombreux lecteurs nous publions un petit tableau qui indique brièvement le rôle des prina‘paux pseudo- 
opcodes (directives) de divers assembleurs pour l'Apple , ce qui permettra de traduire d’un assembleur à l'autre les 
programmes que nous publions. Nous avons mis dans notre tableau: 6 Character Label Assembleur de Microproducts Île 
premier assembleur sorti sur Apple), Lisa 2.5 de On Line Systems (qui est une amélioration de Lisa 1.5), Apple Tool Kit 
Assembleur de Apple Computer et ALDS (Assembly Language Development System: assembleur 6502, 8080 et Z80, qui 
fonctionne sous CP/M) de Microsoft. Nous n'avons malheureusement pas mis le Big Mac de Cali Apple, dont nous 
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n'avons pas le mode d'emploi, mais il ressemble beaucoup au Tool Kit. I] va sans dire que ce qui suit n’est pas exhaustif, 
ni au point de vue des directives {surtout pour ALDSIl), ni au point de vue des assembleurs et que ce n’est en aucun cas 
un mode d'emploi résumé de ces assembleurs. 


INSTRUCTIONS GENERALES 


ORG [exp] fixe l'ORiGine du programme objet 
OBl [exp] fixe l'origine du code OBdet généré 
PHS [exp] change provisoirement FORG 


DPH termine une section de code suivant un PHS 
END indique la fin du programme source 

[label] EQU [exp] initialise la valeur d’un label 
idem, mais [exp] entre $00 et $FF (Page Zéro) 
[label] LET [exp] permet de réassigner un label 


INSTRUCTIONS POUR L’ASSEMBLAGE 








CHN ICL INCLUDE | ICL [nomfic] chaîne un fichier; labels conservés 
CAL CAL flabell...] passe des labels à un fichier ”linké” 
ENT ENT [labell..] récupère les labels passés par CAL 
DCM DCM [cmd DOS] exécute la commande à l'assemblage 
PAU PAU crée une erreur forcée à l'assemblage 
PAG PAG envoie CTRL-L à l'imprimante 
EJECT EJECT [exp] fixe la taille des pages pour imprimer 
TIL TTL “sting” envoie CTRL-L et imprime le titre 
SBTL TITLE TITLE {ütre] met un titre en haut de chaque page 
SKP SKP [exp] saute exp lignes au listing 
REP REP [exp] répète exp chrs. au listing (défaut:+) 
CHR CHR [caractère] change le chr. par défaut de REP 
LST LST crée un listing à l'assemblage 
NLS NLS ne crée pas de listing à l'assemblage 
LST | LST ON ou OFF crée un listing ou non à l'assemblage 
DSECT DSECT DSECT réserve de la place sans l'afficher 
DEND | DEND DEND annule le DSECT 
NOG NOG: on n'affiche que 3 octets de code pour HEX, ASC... t# 
GEN GEN annule NOG (81 


| INSTRUCTIONS DE STOCKAGE DE DONNEES 


+ 
LL 





Povir Gi 
tactirs:s 


DFB [exp] stocke l'octet bas de l'expression 

HBY [exp] stocke l'octet haut de l'expression 

DDB {exp] stocke une expression octet haut puis bas 
EQD [exp] stocke une adresse (poids faible d'abord) 
HEX [ectets] stocke des données hexadécimales 

DA [exp] : hybride de ADR. BYT et HBY 

ASC string” stocke une chaîne ASCII {bit haut = 1} 
ASC ‘string’ stocke une chaîne ASCII (bit haut = 0) |. 
MSB ON ou OFF dit si le bit haut = 1 ou 0 avec ASC 

cf ASC, mais longueur stockée avant la chaîne 

ct ASC. maïs bit haut du dernier octet inversé 

DCI “string”: bits hauts = 0 sauf le dernier 

INV "string” ou string”: caractères écran INVERSE 

BLK ’sting” ou ‘sing’: caractères écran FILASH 

DS [exp] permet de réserver une place de exp octets 


ASSEMBLAGE CONDITIONNEL 


£=< 
, 


éésis 


di 
.. 








DO [exp] n'assemble que si l'expression est vraie 
ELSE assemble quand l'expression du DO est fausse 
FIN indique la fin de l'assemblage conditionnel 





AUTRES DIRECTIVES 





BGE [exp] Branch if Greater or Equal = BCS 
BLT [exp] Branch if Less Than = BCC 
BTR [exp] Branch if TRue = BNE 
BFL [exp] Branch if False = BEQ 
XOR EOR [exp] eXclusive Or = EOR 
SWEETI6 LISA assemble aussi les codes de l’interpréteur SWEET-16 
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SANS 


MICROTELEX 


VOTRE MICRO D'EST QU'UN CDRONIATEUR 


Communication interface 


2. place d'Aligre - 75012 Paris 
Tél. 341.85.85 - Télex 214254 INTFACE 
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La PROM P5A désassemblée 


Thierry Le Tallec 


Pour tous ceux qui désirent en savoir un peu plus sur le routine contenue dans la PROM P5A du contrôleur. désas- 
fonctionnement du DOS 3.3 et sur ce qui se passe dans la semnblée en termes {comprenez ‘’étiquettes”} compréhensi- 
cate contrôleur de leur lecteur de disquette. la liste don- bles et commentée par l'auteur de ce décryptage. Nous la 
née ci-après devrait s'avérer utile. Il s'agit en effet de la livrons en l'état à vos talents d'analystes. 











| 'HNAHEENIEEAHEE 47 GNE BLDTABLI 

2#+  PROMN PSA Big Mag 48 TYA 

3 # désassesblée # 49 STA $0396,X 

& + par + 50 INY 

J+7T. Le Tallec # 5i BLOTABL2 INX 

GS OHRREHEHEENHEHEHE 92 BPL BUILDTBL. 

1 S 

8+ (05/08/82 Sù + Calcul du nuséro du siot par analyse de la pile + 
q S | 
10 # Presière routine a étre exécutée lors di 5o0t, % JSR ICRTS si 
11 + Elle est appelée par PR£6 ou C6006 ou 6 cirl-?, 57 TSX rl 
12 58 UR STACK, 1 “ 
13 ORG  $C600 59 As 14 
iô 60 ASL 21 
IS BLFAIR EQU 526 6l Aa 5 
16 SAÛTMM OU $Æ 62 ASL + 
17TEM EU $5 63 STA SLUTMN a 
18 SECTOR EQU $3D 64 TAX H 
19 TRACKRD EQU $40 ES) 

20 TRACK  EQU $%4j 66 # Initialisation du materiel, 

21 STAK EQU $100 67 

22 PHASECFF EQU $C060 68 LDA DRVRDM,X ‘raz du latch de iecture. 

23 PHASEUN EQU $Cog1 69 UM DARVRD,X :passe en mode "lecture, 

24 MOTORGN EQU $C089 70 LDA DRVOEN, X :choisit le drive 1. 

25 DRVCEN EQU $CO08A 7 COR MOTORON, X met le moteur en route. 

26 DRURD  EQU S$CO8C 72 

27 DRVRDA EQU $COBE 73 # Rasene le bras en piste zéro par B$ #arches-arrière, 

28MIT EQU $FCAB 78 

23 JORTS EQU $FF58 75 LDY &550 

x 76 TRACKO LOR PHASEUFF, X 

31 # Construction d’une tadle en #356-$355 pour 77 TYa 

32 # convertir les nibbles en nots de six bits (500-85F). | 78 AND €$0ÿ 

5 79 AG. 

ä LDX £520 80 ORA SLOTMN 

KS) LDY £$00 gi TAX 

x UX €$03 82 LDA PHASEON, X 

3 BUILDTBL STX 76 ë5 LDA £$56 

38 TXA 64 JSR WAIT 

39 AS. 85 DEV 

& BIT TEMP 86 BPL  TRACKO 

êl 8EQ BLDTARL? 87 

42 CRA TEMP 88 + Prépare à lire le secteur Ô de la piste 0 en $8%. 
& ECR £$FF 89 

& AND £$7E ED STA BUFADR 

&S BLDTRBLI BCS Bt DTABL2 gi STA SECTOR 

46 LSR 92 STA  TRACK 


 _ ____ _* 
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93 LDA €$08 

ga STA BUFADR+I 

$ 

% * Cette routine lit le secteur indiqué en $3) de la piste 
97 + indiquée en $4l, à l'adresse rangée en $26-$27. 


98 
99 READTRCK ELC 
100 
101 # Attend D5 AA % si carry = 0, 
102 # attend D5 8A AD si carry = 1. 
103 
104 RDTRACKI PHP 
105 WAITOATA LDA DRVRD,X 
106 BEL RITDATA 
107 WAITI EDR £$DS sattend 25 AR % 
108 BNt WAITDATA 
109 WAIT2 EDR DAVRD,X 
110 BRL WAIT2 
il CM £5AA 
1i2 BNE HAITI 
E 113 NO 
MA 1ié WAITS LDA DRVAD,X 
re 115 BRL MWAITS 
D 6 OP £5% 
M 117 BEQ  ADRALOCK 
D 118 PLP 
1: 119 BEC  READTRIK 
M 120 EUR £$AD si trouvé D5 AA AD et souhaité, 
HN 121 BEG DATABLOC ‘alors saute en $C686. 
122 BNE  READTREK 
123 
124 # Analyse du chasp “adresse” 
13 


126 ADRBLOCX LDY £$03 
127 ADRBLOCI STA  TRACKRD 
128 ADABLOC2 LDA DRVRD,X :atterd le premier noble 


129 EPL  ADRBLOC2 

130 REL 

131 STA TEM 

132 ADRBLOCS LDA DRVRD,X :attend le seconc nibble 
133 8PC  ADRBLOCS 

134 AND TEMP reconstitue l’octet 
135 DEY sreconence 3 fois 

136 BME  ADRB:OC{ ; (volume, piste, secteur} 
137 PL 

138 EM? SECTOR :c’est le bon secteur ? 
139 BNE READTREK ;non =) recommence 

140 LDA TRACXRD :récupére le nuaéro de piste 
141 CP TRACX ic'est la bonne piste 7 
142 BNE READTREK snon =} recommence 

143 

144 # Lecture du chaæo "données" 

145 

186 BES RDTRACK1 :va attendre DS AA AD 
147 

188 # Lecture des 85 premiers mibbles en $300-$355 
149 


150 DATABLOC LDY &6b 
151 DATABLI STY TE 





152 DATABL2 LDY DRVRD, X 


155 
154 
155 
156 
157 
158 
1539 


BPL  DATABIL2 
EDR $02D6, Y 
LDY TEWP 


STA  #0300, V 
BNE DATABLI 


160 # Lecture des 256 mibbles suivants en ($26-$27) 


161 
162 ICEBA 
163 IC6BC 
164 
165 
166 
167 
168 
169 
170 


STV TEM 
LDY DRVRO,X 
BPL  IC6BC 
EUR $02D6, Y 
uDY TEW 

STA  (BUFADR), V 


BNE ICSEA 


171 # tecture et vérification du checksum 


172 
173 IC6C8 
17 
175 
176 ICEDS 
177 


LDY  DRVRD.X 
EPL ICGCE 

EOR $02D6, Y 
BNE  READTROK 


178 # Décodage des mobles ('cenibhilize*) 


179 
180 
181 IC6D7 
182 IC6D3 
185 
184 
185 
186 
187 
188 
189 
190 
191 
192 


193 # Incrésente le nuséro du secteur à lire et l’acresse 


LDY £500 
LDX 2656 


BAT IC6D7 
<DA  (BUFADR), v 
LSR 40300, X 


LSR $0300,X 
STA  (BUFADR),Ÿ 


INY 
BNE 1C6D9 


194 # du buffer où écrire (poids fortsi, 


195 
196 
197 
198 


199 # Lit un autre secteur s’il y a lieu (cas de “BASICS") 
200 # sinon, saute directement en $80i pour continuer le boot 


201 
202 


207 


INC BUFADR+1 
INC SECTOR 


LDA SECTOR 
CHD 40800 
iDX SL.CTNU 
BCC jC6DS 
Jep #80! 


288 + NÛTE: Le aoteur tourne toujours, X = slot x 6, 


209 # 
219 + 


$8FE = prochaine page à écrire 
$8FF = nonbre de secteurs à iire 
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Des logiciels de jeu, fous, fous, fous. 

Des logiciels de formation passionnants. 

48 logiciels toujours en français. 

Des logiciels aux couleurs fantastiques grâce à la 
haute définition. 

Des logiciels vendus dans les magasins FNAC et 
dans les Boutiques Informatiques. 
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ÉARTELS 
GUTTHROATS. 


\ #45 


ATTAQUE ROUGE + 
FORCES REBELLES 








GENETIC DRIFT 








Cartels et Cutthroats. 

Vous êtes le big boss d'une 
grande société. 

Vous décidez des alliances à 
conclure ou de la manière de 
dominer le marché, des nouvelles 
sociétés à monter. 

Etes-vous capable de prendre les 
bonnes décisions? Et de devenir 
un grand manager? 


Attaque Rouge et Forces 
Rebelles. 

L'Armée Rouge attaque et va 
dévaster notre pays. 
Saurez-vous défendre trois villes- 
clé qui ne doivent en aucun cas 
tomber aux mains de l'ennemi ? 
Des forces rebelles ont envahi 
une ville stratégique. Vous com- 
mandez des forces qui doivent 
reprendre la ville : saurez-vous 
écraser les rebelles? 


Contrôleur Aérien. 

Vous êtes devenu contrôleur 
aérien. 

Vous devez guider 26 avions à 
hélice ou à réaction. Saurez-vous 
les faire décoller, changer d'alti- 
tude ou de direction, atterrir 2 
Avrez-vous assez d'adresse pour 
éviter le crash toujours possible? 


Genetic Drift. 

Vous êtes le maître du monde, 
par des manipulations généti- 
ques vous pouvez créer des 
races, faire muter des espèces. 
Saurez-vous toujours éviter que 
les nouvelles races et les nouvel- 
les espèces échappent à votre 
contrôle ? 











Les TIGRES Dans 
LANEIGE 


L'ALLIANCE 
ROMPUE 


OPERATION. 
APOCALYPSE 


PR 


. Cs- 


Ü 


CS pes _\ 
AQ%ICIE FRAGATS 

4 2A*. 
mer. He. 
hp s Se 
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Les Tigres dans la Neige. 

La Bataille des Ardennesl 

C'est la dernière attaque déses- 
pérée des forces d'Hitler. 

Dons les Ardennes glacées et 


enneigées, les Panzers Tigres fon- 


cent et surprennent les forces 
américaines. 

Saurez-vous arrêter les Panzers 
Nazis ? 


l'Alliance Rompue. 

La planète Osgort possède des 
forêts sauvages, des lacs bleus 
transparents et une atmosphère 
vivifionte. 

Plusieurs tribus y vivent, les 
Centaures, les Elfes, les Hozgits, 
les Zorgs qui ressemblent aux 
humains. 

Tous ces gens vivent en paix. 
Etes-vous capable de rompre 
l'alliance 2 


Les campagnes 
Napoléoniennes. 

Vous allez recréer les grandes 
batailles de la fin de l'Empire de 
Napoléon f”. 

Pourrez-vous inverser le résultat 
de l'histoire, faire apparaître 
Blücher, battre Wellington. 
Ftfaire de Waterloo une grande 
victoire ? 


Opération Apocalypse. 

C'est la Deuxième Guerre Mon- 
diale. Vous avez le choix entre 
4 scénarios d'opérations. 


Vous devez dresser des plans de 


bataille, tenir compte de vos 
adversaires, du terrain, des 
circonstances. 

Serez-vous un grand chef 
militaire ? 











Le Basic Expliqué. 


" Enfin Un cours qui vous enseigne 
RPPLESOF vraiment le langage de l'ordina- 
teur Apple. 


Apprenez le fonctionnement de 
l'ordinateur et comment faire vos 
propres programmes. 


Savoir Ecrire. 

Les jeunes obtiendront des résul- 
tats rapides à l'aide de dessins et 
d'effets sonores distrayants. 
Savoir Ecrire est un excellent 
programme d'introduction à 
l'ordinateur. 


Savoir 
écrire 


Savoir Compter. 
Un excellent programme d'intro- 
duction pour les jeunes. En même 
temps défi et source de plaisir. 
Ce programme est divisé en 

ve huit modules pour apprendre à 
EDU-WARE compter, à additionner et à 
soustraire. 


Savoir compter 


L'AGENCE AUX CUENTS 


Bon pour le dépliant gratuit de nos 48 logiciels. 








Nom . | —— 

Prénom L __ Age __ 

Adresse 

Marque de mon ordinateur Ç fl BLEU 

— Editions Ciel Bleu 

: Société Sofel Informatique 

P 20, rue Bapst, 92600 Asnières. Tél. : (1) 790.23.60 


Importateur exclusif des produits Computerre 


Les disquettes 


Si vous envisagez l'achat d’un lecteur 
de disquettes, pourquoi ne pas vous 
laisser tenter par les nouvelles unités 
dites ”half-size” ou ‘slim-line” ? To- 
talement compatibles avec l'Apple, 
elles présentent l'avantage de n'occu- 
per qu’un tiers environ de la hauteur 
d'une unité normale. PENTASONIC 
propose des mécaniques de marque 
Nippon (avec un nom comme cela, 
pas de doutes possibles sur l’origine 
géographique!) au prix de 2699 FF 
TIC sans contrôleur (contrôleur 
compatble Apple). NDER : tous les 
pix de cette rubrique sont indiqués 
TIC, sauf indication contraire. 


Si vous patientez encore quelques 
mois, vous aurez alors la possibilité 
d'acheter des lecteurs dans la gamme 
3 pouces (3”, 3”1/2, 3.9”... puisqu'il 
ny a pas encore de standard re- 
connu par les différents construc- 
turs). AMDEK, par exemple, pro- 
pose des lecteurs 3” compatibles 
Apple 1] avec une capacité de 286K 
pour un prix de $299. HAYTECH 
propose avec le sytème CYBORG un 
lecteur 3 pouces de 1.2 Mégaoctets, 
qui inclut son propre système d’ex- 
ploitation. Le prix de base du lecteur 
est de 5699 F mais il semble qu'il 
falle prévoir interfaces et modules 
d'extension en plus. En outre, les 
CYBORGs ne sont pas encore dispo- 
nibles sur Apple. 


Les imprimantes 


L'imprimante TOSHIBA QL4000 est 
une imprimante à aiguilles hors du 
commun. De par sa qualité d’impres- 
sion (tête à 24 aiguilles de 0.2 mm 
de diamètre), elle entend s'imposer 
dans le domaine de l'impression 
“qualité coutrier”. Ses atouts face 
aux imprimantes à marguerite tien- 
nent essentiellement à sa rapidité : 
100 cps (contre 40, vitesse moyenne 
habituelle des imprimantes à margue- 
ñite) et aux possibilités de jeux de ca- 
ractères (écriture élargie, espace- 
ments vVariables...). Elle est bien 
entendu utilisable pour les listings (vi- 
tesse 192 cps) et pour le graphique. 
Son prix (18000 FHT) la classe net- 
tement du côté des imprimantes à 
marguerite. La QL4000 est importée 
par MSC. 


Le domaine des imprimantes couleur 
est en rapide évolution Après la 
technologie à impact sur ruban multi- 
colore, voici les imprimantes à jet 
d'encre. Elles disposent de 3 ou 4 ré- 
servoirs d'encre (Cyan, magenta, 
jaune et noir), permettant par combi- 
naison d'obtenir les autres couleurs. 
Pammi les modèles disponibles, la 
Canon A-1210 attire immédiatement 
l'attention. Alors que les autres impri- 
mantes sont vendues à des prix va- 
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tiant entre $5.000 et $12.000, la A- 
1210 vaut $795 et est destinée au 
marché des ordinateurs individuels. 
Ses performances sont tout à fait ho- 
norables : 40 cps et une résolution 
de 30 points par centimètre. Nul 
doute qu'elle aura beaucoup de 
succès. 


Synthèse vocale et 
musicale 


Depuis la carte Supertalker de Moun- 
tain Hardware, la première à donner 
la parole à l'Apple, jusqu’à la Mo- 
ckingboard de Sweet Micro Systems, 
l'une des dernières sorties, de nom- 
breuses cartes et réalisations ont vu 
le jour. Les circuits utilisés dans les 
applications de coût modéré sont gé- 
néralement des circuits de génération 
de phonèmes. Malheureusement, en 
raison de la nationalité des fabricants 
de semi-conducteurs, la génération 
de phrases en français à partir de 
phonèmes anglais n'est pas des plus 
réussies. 


Le CNET {Centre National d'Etudes 
des Télécommunications) a mené 
depuis plusieurs années de nombreu- 
ses recherches appliquées à la sun- 
thèse de parole. Le résultat, fruit de 
la collaboration entre les chercheurs 
du CNET et la société AML s'appelle 
Prosit 4000. C'est un boîtier qui se 
connecte à une interface série et qui 
génère une sortie vocale d’après le 
texte envoyé. Il contient 108K de 
mémoire dans laquelle sont inscrites 
les règles phonétiques du français et 
les bibliothèques de routines. Le Pro- 
sit 2000 est une version dégradée” 
qui se limite au traitement de voca- 
bulaire compressé, stocké par avance 
dans l'ordinateur. Prix approximatifs : 
6500 FHT pour le modèle 2000 et 
10500 FHT pour le 4000. 


Autre réalisation française, la carte 
Porte-Parole réalisée par Ediciel. But 
recherché : permettre la synthèse de 
texte (conversion directe du texte en 
parole) à un prix abordable. Le logi- 
ciel devrait être prêt au début de 
l'année prochaine. La carte existant 
déjà, elle a été commercialisée en 
avance avec pour seule application 
actuelle le langage Edi-Logo : Logo 
en français et doué de la parole (ie 
n'ai pas pu identifier l’accent - pari- 
sien, marseillais, chtimi.. - mais une 
chose est sûre: ça ne ressemble pas 
à un texan parlant français !] Nous 
attendons donc avec intérêt les pro- 
chains programmes prévus pour cette 
carte. Carte Porte-Parole : 1395 F - 
Edi-Logo : 1490 F. 


dees222255835 


Jean-François Duvivier 


Dans le domaine sonore et vocal, 
l'une des demières cartes sorties 
s'appelle la Mockingboard. En fait, 
sous ce vocable se cachent 4 cartes 
différentes : Sound |, Speech li, 
Sound il et Sound/Speech 1 combi- 
nant des possibilités sonores et voca- 
les. Au point de vue parole, la puce 
utilisée est le SC-01 de Votrax, dont 
les qualités ne sont plus à démontrer. 
C'est le circuit utilisé par le Votrax 
personal speech system. Le côté so- 
nore est pris en charge par le AY- 
8910 de General instrument, circuit 
que l'on retrouve un peu partout 
(cartes ALF, Vista Arcade Board...) 
et qui permet la génération de musi- 
que {3 voies) et de bruitages (explo- 
sions, tirs, lasers..….). Mais le gros inté- 
rêt des cartes Mockingboard réside 
dans les accords passés entre Sweet 
Micro Systems (réalisateur des cartes) 
et les principales sociétés de création 
de logiciels de jeu, afin de permettre 
à ces dernières d'utiliser les possibili- 
tés de la carte. De nombreux jeux 
sont ainsi transformés par la présence 
d'une  Mockingboard :  Thunder- 
bombs, Pie man, Zaxxon.… Au fait, 
connaissez-vous Zaxxon ? La préci- 
sion du graphisme et la rapidité 
d'évolution m'ont ébahi! (je ne pen- 
sai pourtant plus que ce soit possi- 
ble...) Pour en revenir à notre oi- 
seau moqueur (mocking bird), je ne 
sais pas qui limporte en France. 
Mais je pense qu'au SICOB, date à 
laquelle paraitra ce numéro de 
Pom's, vous pourrez certainement en 
voir {et en écouter) de nombreuses 
démonstrations. À titre indicatif, le 
prix américain de la carte 
Sound/Speech I est de $179. 


Les cartes 


Toujours plus dans le domaine des 
cartes mémoire! Macrotch présente 
Diskulator, une carte mémoïre exten- 
sible de 64 à 512K. Legend de son 
côté introduit la S-Card (de 64K à 1 
EE que vous pourrez trouver chez 


Pour les mordus d’audiovisuel, signa- 
lons que la société Electrosonic 
commercialise le “Système 4000” 
permettant, à partir d’un Apple ou 
de tout autre ordinateur possédant 
une sortie série, la gestion de 24 pro- 
jecteurs de type Kodak Caroussel. Le 
programme ESCLAMP permet de 
composer très facilement le montage 
de diapositives en utilisant toutes les 
possibilités de ce type de projec- 
teurs : fondus à vitesse variable, scin- 
tillation, niveaux de lumière program- 
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mables…. Il est bien entendu possible 
de synchroniser le programme avec 
le son grâce à l’utilisation d’une piste 
d'horloge générée par une carte hor- 
loge inclue dans l'Apple. é’ai eu l’oc- 
casion de voir une démonstration sur 
neuf projecteurs : le résultat est tout 
simplement époustouflant ! 


La caite Dumpling importée par SO- 
FITEC est une carte d'interface paral- 
lèle graphique haute résolution 
compatible sans changement de 
ROM avec de nombreuses impriman- 
tes du commerce (changement par 
switches). Une trentaine de comman- 
des, dont copie d'écran, rotation, in- 
version, double frappe, double for- 
mat, … 


Claviers 


La mode est aux claviers détacha- 
bles. Keytronic par exemple propose 
son clavier KB-200 qui ressemble fu- 
rieusement à celui de l'IBM-OP. Cla- 
Vier numérique, touches de fonc- 
tions, plus de 80 touches pour ce 
clavier détachable qui se branche à 
la place du clavier Apple IL Prix: 
$298. 


D-TACH de Innovative Micro Goo- 
dies est un clavier séparé pour Apple 
Il ou/e. il utilise le clavier Apple 
existant qu' est intégré dans un cof- 
. muni d’un câble extensible. Prix : 
98. 


PRO-100 de Amkey propose comme 
son nom l'indique un clavier de 100 
touches {à quand PRO-200 ?). Parmi 
les touches ajoutées : 18 touches de 
fonction, 25 touches de commande 
Basic et DOS (Catalog, Run, List, 
New...) et 22 touches Visicalc (Insert 
column, Delete, Replicate, Print..). 
Prix: $265 (pour Apple Il seule- 
ment). 


Enfin, Executve Peripheral Systems 
propose EPS Keyboard, clavier re- 
configurable par modules enficha- 
bles. Ces modules permettent d’avoir 
des touches de fonction préprogram- 
mées pour Visicalc, Applewriter Il, 
Screenwriter Il, Wordstar. Prix : 
$349. 


Autres périphériques 


IDEN propose un joystick, modèle 
YT. compatible Apple II et //e, avec 
une manette à centrage automatique 
et deux boutons. Le tout pour 345 
FF, l'ensemble étant fourni dans un 
boîtier métallique robuste. 


Micro-processeurs 


Le sige 6502 vous dit-il quelque 
chose ? Bien sûr, c’est le micropro- 
cesseur utilisé dans l'Apple. Mars 


voici que plusieurs fabricants de 
semi-conducteurs présentent un nou- 
veau circuit : le 65C02. Le ”C” in- 
corporé au milieu indique que la 
technologie utilisée est le CMOS, 
permettant une consommation très 
faible. Le 65C02 ne consomme envi- 
ron que 10% de ce que nécessite le 
6502. L'avantage est énorme pour 
les micro-ordinateurs portables (ali- 
mentation sur batteries) mais égale- 
ment pour des questions de fiabilité : 
moins de puissance consommée 
moins de chaleur et plus de fiabilité. 


Mais le principal intérêt du 65C02 ré- 
side dans ses caractéristiques logiciel- 
les: totalement compatible avec les 
instructions existantes du 6502, il 
permet d’en utiliser de nouvelles. 59 
nouveaux codes opération ont été 
créés. Îls se classent en deux parties : 


e de nouveaux modes d'adressage 
sur des instructions déjà existantes 
dans le 6502, tels que les modes 
indirect (sans indexation) et indi- 
rect absolu indexé. 


®e de nouvelles instructions dont 
BBR (Branch on Bit Reset), BBS 
(Branch on Bit Set) BRA 
(BRanch Alwaws), PHX (PusH X 
onto stmck), PHY (PusH Y onto 
stack),PLX (Pull X from stack), 
PLY (Pull Y from stack), RMB 
(Reset Memory Bit}, SMB (Set 
Memory Bit}, STZ (STore Zero), 
TRB (Test and Reset Bit) TSB 
(Test and Set Bit). 


Côté compatibilité, aucun problème 
pour les possesseurs d'Apple /// et //e 
qui peuvent directement remplacer le 
6502 par un 65C02 et profiter ainsi 
des avantages de ce circuit, À noter 
que les nouvelles versions d'assem- 
bleurs prennent en compte ces nou- 
velles instructions. La dernière ver- 
sion de Merlin supporte toutes les 
instructions du 65C02. Les mises à 
jour de SC-Assembler et ORCA sont 
disponibles. 


Malheureusement, je n'ai cité plus 
haut que l'Apple // et//e. Que se 
passe-t-il pour le !] ? Il semble qu'il y 
ait des problèmes relatifs au séquen- 
cement interne et aux accès mémoi- 
res. Raïson : le 65C02 est plus rapide 
et ne maïntient pas les données assez 
longtemps sur le bus, ce qui provo- 
que en conséquence des pertes de 
données. Personne n’a encore trouvé 
de solution simple permettant d'utili- 
ser un 65C02 sur Apple IL La solu- 
tion viendra peut-être des prochaines 
révisions du 65C02, permettant de 
résoudre ce problème. 


On peut penser que le 65C02 rem- 
placera le 6502 sur les nouvelles ma- 
chines. Peut-être verra-t-on une nou- 
velle révision du //e avec un 65C02, 
ce qui permettrait de diminuer le 


ÉTAT ONSAGARI TE 
VAPEERER SARA AETER SI 


code (environ 10 à 15 %) et donc 
d'augmenter la rapidité. 


Ceux qui sont intéressés par le 
65C02 peuvent consulter l'excellent 
article de Roger Wagner page 199 
dans Softalk de juin 83, article qui 
fait le tour complet des possibilités du 
65CO2. 


Logiciel 


Nous venons de voir arriver la nou- 
velle version de CX Multigestion 
(Controle X), CX Base 200 et CX 
Texte. Nous retrouvons le système 
de gestion de fichiers déjà analysé 
dans Pom's 5, avec des améliora- 
tions allant dans le sens de nos re- 
marques à cette époque, et avec une 
possibilité de traitement de texte 
(ligne par ligne). Il est possible d’ac- 
quérir séparément le traitement de 
texte, la gestion de fichiers ou la ver- 
sion 200 autorisant la gestion multif- 
chiers. Enfin un produit ”bien de 
chez nous”, et en progrès par rap- 
port à la première version. 


RA vient de sortir la documentation 
en français du programme de gestion 
de fichiers Omnis, dont nous ferons 
certainement l'analyse un jour. 
Omnis fonctionne sur IE //e, /// Le 
prix, variable selon le matériel, est de 
l'ordre de 4140 FF. Nos seuls pro- 
blèmes pour parler de ce programme 
sont le manque de temps et de 
place ! 


Informations 


Le magazine américain Fortune pu- 
blie tous les ans la liste des 500 plus 
grandes entreprises américaines. 
Apple établit un nouveau record en 
faisant son entrée dans la liste (en 
4llème position) seulement sept ans 
après sa création. À noter que Mike 
Markkula, jusqu'alors président d’Ap- 
ple, vient de laïsser la place à John 
Sculley, qui présidait auparavant 
Pepsi-Cola. Quant à IBM, tout va 
pour le mieux. La firme passe de la 
8ème à la 6ème place. À titre de 
comparaison, le total des ventes 
d'Apple durant les 6 premiers mois 
83 représente à peu près la moitié 
du bénéfice d'IBM pour le premier 
trimestre ! 


Nous vous avions annoncé une ana- 
lyse du Golem, qui n’a pu être réali- 
sée pour des raisons compréhensi- 
bles. Apple a gagné un jugement 
interdisant la présentation du Golem 
à MicroExpo et sa vente, jusqu'au ju- 
gement définitif. La preuve a été ap- 
portée que plus de 99% du contenu 
des ROMSs était identique, ce qui est 
une excellente raïson de compatibi- 
lité... 


"Music Programs for the Apple 
Computer” est un catalogue rassem- 
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blant les programmes et les cartes 
musique sur Apple : 123 program- 
mes, 13 cartes, 46 fabricant. Dis- 
ponible pour 5$ (port) auprès de 
Denis CMoreen-College of Notre 
Dame - Depaitment of Music - Bel- 
mont CA 94002. 


La troisième édition de ”’The Blue 
Book for the Apple Computer” de 
WIDL Video Publications est parue. 
Ce catalogue fait le point de tous les 
produits destinés à l'Apple. Les chif- 
fes sont éloquen® : 914 pages, 
4600 produits, 720 adresses de fabri- 
cants.. Heureusement, plus de 100 

pages d'index (mots-clés, listes alpha- 
bétiques, par firmes...) permettent de 
s'y retrouver. Prix $24,95. 


Avis aux concepteurs de systèmes : 
le langage C est maintenant disponi- 
ble sur Apple grâce au compilateur 
Aztec C Il de MANX. Prix non men- 
tonné. 


Ediciel est un GIE (Groupement d’In- 
teret Economique) entre Matra et 
Hachette qui commercialise des logi- 
ciels et matériels sur Apple. Une pre- 
mière vague de 5 programmes et 
une carte (la carte Porte-Parole dont 
nous vous parlons plus haut) est sor- 
te en mai. Des jeux (Galaxie-L, Tri- 
jeu et Naja), une version française et 


sonore de Logo : Edi-Logo et Maths 
1, la première disquette d’une collec- 
tion d'exercices dirigés par ordinateur 
et destinés aux candidats au Bacca- 
lauréat. Maths 1 s'intéresse plus par- 
ticulièrement aux logarithmes et ex- 
ponentielles, ainsi qu'aux formes 
indéterminées et limites. Ediciel 
compte inscrire à son catalogue une 
vingtaine d’autres produits d'ici la fin 
de l'année. 


Adresses 


AMDEK Corp. - 2201 Lively Blvd - 
Elk Grove Village IL 60007 


Amkey - 202 Ballardvale St. - Wil- 
mington MA 01887 


AML - 10 rue Lionel Terray - 92500 
Rueil-Malmaison - 749.14.00 


BIP - 22 rue Joseph Dijon - 75018 
Paris - 255.44.63 


Controle X - Tour Maine Montpar- 
nasse - 33 avenue du Maine - 75755 
Paris Cedex 15 - 538.98.87 


Ediciel - Rue j-Pierre Timbaud - 
BP 66 - 78390 Bois d’Arcy 


Electrosonic - distribué par Techni- 
tome - 118 rue de Crimée - 75019 
Paris - 202.37.13 


Executive Peripheral Systems - 
800 San Antonio Road - Palo Alto 
CA 94303 


HAYTECH - 68 Bd de Port-Royal- 
75005 Paris - 354.86.66 
Innovative Micro Goodies - 


34732 Calle Fortuna - Capistrano 
Beach CA 92624 


IDEN - 34 bis rue Sorbier - 75020 
Paris - 358.44,35 


KA - 212 rue Lecourbe - 75015 
Paris - 533.13.50 


Keytronic - PO Box 14687 - Spo- 
kane - Washington 99214 


MANX - . Box 55 - Shrewsbury N] 
07701 


M3C : 12, place de Seine - La Dé- 
fense 1 - 92400 Courbevoie - 
774.57.80 


Pentasonic - 5 rue Maurice Bourdet 
- 75016 Paris - 524.23.16 


SOFITEC : 207 rue Gallinéni 
92100 Boulogne - 605.88.78 


Sweet Micro Systems - 150 
Chestnut Street - Providence RI 
02903 


WIDL Video Publications - 5245 
West Diversey - Chicago IL 60639 









EPISTOLE 


VOTRE TRAITEMENT 
DE TEXTE FRANCAIS 


Centrage 
automatique 


Caractères 
gras 


Caractères 
expansés 














En-tête 
automatique 


















SUR APPLE® 
ae N 5 x Mailing vf a ACTA | 
ogiciel de traitement de texte français facile adresses , re unes 0e, 
et puissant sur Apple ll et Apple ff e. a PS “er 
Des menus clairs et simples. | RTE 


Une centaine de commandes puissantes, faciles 

à utiliser, 

S'adapte à toutes les imprimantes matricielles ou 
à Marguerite, et cartes 80 colonnes. 

Permet l'intégration de tableaux créés par 
VISICALC ® . MAGICALC®, MULTIPLAN ®, etc... 


Démonstration chez votre revendeur Apple  uitise 
Prix H.T. 2 000 F (TTC 2 372 F) toutes les fonctions 


desimprinantes 


Justification 
à droite 






Mauss 


Caractères $ : s 
oondensés L Fee 








Bas de 
automatique 






D sent 
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Une informatique de gestion adaptée aux besoins des gestionnaires et réalisée par des gestionnaires, 


ETUDIE e opportunité d'utilisation de l'outil micro-informatique 
e intégration entre informatique traditionnelle et personnelle 
e politique de la communication dans l’entreprise 


FORME e formation à l’utilisation de la micro-informatique 


REALISE e réalisation de programmes à la demande 


LIVRE e livraison de systèmes clés en main, avec des progiciels de 
GESTION DE STOCK, PAYE, COMPTABILITE. 


Nous sommes gestionnaires avant d'être informaticiens. L'informatique doit s'adapter à l'homme, et non l'inverse. 
L'outil rnicro-informatique répond particulièrement bien à ce souci de qualité et d'efficacité du travail, 
+ dans des cenditions conviviales. 
Nombreuses références en informatique traditionnelle - divers matériels - et en informatique individuelle - principalement 
Apple - auprès des PME et des groupes industriels. 


logma sa. Centre La Chêtaigneraie - 29, avenue de Versailes - 78170 La-Celle-St-Cloud - Tél. : (3) 918.13 07 


MODENIS TELSAT 


L' ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 
PAR LE RESEAU TELEPHONIQUE 








_A#ËE 
TELSAT 440 TELSAT 640 
Modem 300 bit/s full duplex Modem 600/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribués par 


SATELCOM international 69_7i.rue du CHEVALERET 75013 PARIS 


Tél. 584475 Telex 204120F 
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Jonglez avec votre catalogue 


Le petit programme ci-dessous lit 
votre catalogue et le place dans un 
tableau de chaînes de caractères. La 
ligne 10 réalise l'initialisation indis- 
pensable : il est préférable de la met- 
te au tout début du programme. At- 
tentionn: la variable N doit être 
supérieure au nombre maximum de 
fichiers sur une disquette, sous peine 
de graves ennuis. 


Les lignes 30 et 40 doivent être exé- 
cutées chaque fois qu'un catalogue 
est lu. Les lignes 20 et 50 ont été 
placées là à titre de démonstration. 


À partir de ce programme, chacun 
peut constituer le programme de son 
choix et se créer un programme de 
MENU personnalisé en Applesoit 
sans effort. Ainsi, en ajoutant la ligne 


5 et la ligne 60 ci-dessous, on obtient 
une liste en 3 colonnes des fichiers 
mémorisés sur une disquette. 


NDLR : ne pas utiliser ce programme 
quand le Program Line Editer (PLE) 
est actif. 


$ INPUT NO DE LA DISQUETTE : *:N0M 
$ 


60 B$ = ” 
MIPRINT DS$"PRH#IT: PRINT 
"DISQUETTE : “:NOMS: FOR J = 1 
TG I +1 STEP 3: FER À = G TO 
2: PRINT LEFTS (A$UZ + K) + 
B$,26);t NEXT : GRINT * "1 NEX 

ÿ 





Position Contenu 


1 espace où +# 

2 T,B,lou A 

3 espace 

taille 

espace 

nom du fichier 


Olivier Herz 
Contenu des variables 
A$(0) : longueur de 19 caractères. 
Position Contenu 
1 CR (retour chariot) 
3-13 CR 
14 espace 
15-17 numéro de volume 
18 CR 
19 CR 
A${) pour 1>0 : 38 caractères. 

38 CR | 


Programme CATALOG --> TABLEAU ORAN Pope NEXT FE POR Er EN 
TO 1 STEP - 1:AS(I) = AS + As: N 
EXT :AS$(O) = AS + ““:A = PEEK (1 
10 N = 100: DIM ASCN)D:AS = “300:38 48 84 O7) + PEEK (108) « 256 + 8: POKE 
FD AO OO 91 FE E6 FE DO O2 E6 FF 254, PEEK (A): POKE 255, PEEK (A 
68 A4 FD 60 A9 AO 60 N D8236": F +19 
OR I = 1 TO LEN (AS): POKE 511 + | 40 D# = CHRS# (4): PRINT DS"NOMONCIO‘': P 
I, ASC € MIDS (AS,1,192) + 128: N OKE 54,0: POKE 55,3: POKE 56,18: | 
EXT : POKE 72,0: CALL - 144 POKE 57,3: CALL 1002: PRINT DS“CA 
20 TEXT : HOME : PRINT “ENTREZ VOTRE DI TALOG": PRINT DS"PR#O": PRINT Ds" M 
SQUETTE ET“: PRINT * APPUYEZ SUR IN#O" ra 
UNE TOUCHE": POKE 16368,0: WAI | 50 PRINT AS(O);:: FOR I = 1 TO N: IF MI 
T - 16384,128: POKE - 16368,0 DS CAS(ID,2,1) < > " ” THEN PRI 
30 A = FRE (O):A8 = ‘“*: FOR I = 1 TO 19 NT AS(I);: NEXT 


ISQUETTE : Disquette Pom’s Numére 9 

003 HELLO +B O11 HELLO1 

004 MENU +B OO2 BLOAD TEXT 
006 M1 006 M2 M3 

006 M4 006 MS M6 

006 MENUe 006 M? HCT.OBJ 

O1 UFS 002 SUPER PRINT SUPER PRINT DEMO 
O11 SUPER PRINT.S 003 EDITEUR-HGR DESSINATEUR-HGR 

013 PROGR.COMPOS 034 PROGR.EDIT EDIT 

002 COMPOS 004 PROGR&4B8K CATALOG->TABLEAU 
007 LI-TEXTE 012 GRAFTEXT.S GRAFTEXT 

O00S FRE(2) 013 RIA.SCE RIA.OBJ 

O21 WRMA.SCE 007 WRMA.OBJ VAR.SCE 

004 VAR.OBJ OO4 INIT TEST.RIA.WRMA.VAR 
004 EIT-TF 015 PROM PSA.S CAPTURE 

005 CREALIST OC4 LISTING PU22LE 

003 TRANS 002 ONERR-128 ADAP-PUZZLE-COULEUR 
002 BASIC-PASCAL 007 BASPAC.OBJ1 MOVEO 

044 SAISIE.TEXT 004 FONDU ENCHAINE.S FONDU ENCHAINE 

034 ERGUN.PIC 004 WAIT 


HELLO2 
MO 


. »* 


DD» > MW 


A 
A 
B 
B 
B 
A 
B 
A 
F 
A 
B 
B 
B 
A 
A 
B 
A 
B 
B 
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v1+:1122722. 


sévit 
Srsritee 


LEE 


bite 


Courrier des lecteurs et des clubs 


Olivier Herz 


Messages 


J'ai été frès intéressé par larticle 
Graphique, quand tu nous tiens … 
du Ponvs 7, et je me permel de 
proposer les modifications suivantes 
pour une imprimante MX-S2HIF/T. 
D'abord, en insérant la ligne 6025 
D=0, on évite de conserver la 
commande de double format si une 
autre impression est lancée. 


Si l'on supprime la ligne 5200, on 
augmente le nombre de possibilités, 
en particulier on peut imprimer soit 
la page 1. soit la page 2, soit une 
combinaison logique en première co- 
lonne à un seul exemplaire : il suffit 
pour cela d'ajouter la ligne 5555 IF 
P=2 THEN 5580. 


Enfin, avec les modifications ci-des- 
sous, on peut imprimer cette pre- 
mière page n'’impoite où horizontale- 
ment : 


5342 :F D = 0 AND L = 1 AND P =.3 OR 

D { ) O THEN 5350 

5343 X =: 

5364 PRINT 

5345 VAE 2% 

5347 IAFUT "MARGE A GAUCHE EN COLCAN 
E :"C 

6013 iF X = O0 THEN 6019 

6014 COEFF = COEFF + 128 

6015 FOR ! + 1 TD 24 

6016 PRINT TAB( C) 

6017 POKE 1529,255 

6018 VIAB : 

60:9 POAE 1913, COEFF 

6020 PRINT GS 

6021 IF X = O THEN 6027 

6022 PRINT CHRS (27): CHRS (65): CH 

R$ (8) 

POKE 1529, 0 

PRINT ZERO$ 

6025 NEXT ! 

6026 PRINT CHR$ (27): CHRS (50) 

6027 X = 0:D = 0 


6023 
6024 


Félicitations pour la qualité de votre 
publication. 


Alain Meizoz - 18 rue de la Poterie - 
1202 Genève - Suisse 


Le programme HELLO de Tran Van 
(Pom's 6 et 7) dékuit.la page 3, 
comme je l'avais expliqué dans le 
courrier des lecteurs du Pons 7. La 


modification que je vous propose ci- 
dessous n'empêche pas la destruc- 
tion de la page 3, mais elle la recons- 
truit après que le programme ait été 
chargé. Les lignes du programme 
n'étant pas numérotées, j'explique 
comme je peux. 


Dans le Pons 6, page 33, 4ème 
ligne en haut et à gauche, remplacer 
le JSR CLEANUP par JSR RES- 
TORE. À là fin du programme, ajou- 
ter : 


RESTORE JSR 
PHP 
LDX 
LDA 
STA 
DEX 
BPL 
LDA 
STA 
EOR 
STA 
LDA 
STA 
PLP 
RTS 


CLEANUP 


#S2F 
S9ES1,X 
S03D0,X 


LOe@P 


LOOP 
S9ES3 
S03F3 


$03F4 
S9ES2 
SO03F2 


Note : aucune des caractéristiques du 
programme n'est modifiée; en parti- 
culier, il tient toujours en 6 secteurs. 
Ce n'est cependant plus OFCE qu'il 
faut placer en AF.B0Q pour sauver par 
BSAVE, mais 0D20. 


Pour ceux qui n’ont pas le Big Mac 
ou ne veulent pas réassembler, voici 
le patch correspondant à la modfrfica- 
tion : 


QC21 : 20 FE 0€ 

GCFE : 20 7B 9B 08 R2 2 BD 5: 
9 9D DO 03 CA 10 F7 AD 
53 9€ 8D F3 03 49 AS 80 
4 03 AD 52 9€ 8D F2 03 
28 60 


André Babeanu - 1 rue de la Libéra- 
tion - 78350 Jouy en Jasas 


Au sujet de mon extension du moni- 
teur (Pons 8), ma curiosité à été pi- 
quée au vif par votre remarque page 
41 concernant le décalage du buffer 
clavier. La solution est simple au ni- 
veau de l'assembleur, mais au niveau 
objet … Néanmoins, là voici par rap- 
port au code source publié : 


72 


1. Supprimer la ligne 160 (MONZA4 
LDX #1} et placer l'étiquette 
MONZA4 devant la ligne 161 (JSR 
NXTCHAR+3). 


2. insérer les deux lignes PLA puis 
TAX entre les lignes 158 et 159. 


3. Insérer les deux lignes TXA puis 
PHA entre les lignes 148 et 149. 


4 Insérer LDX $#00 entre les lignes 
137 et 138. 


Thierry Le Tallec - 69 rue Sauveur 
Tobelem - 13007 Marseille 


J'ai développé un programme réali- 
sant le traitement complet des réga- 
tes de voilier ou de planche à voile. 
Ceux qui désirent se renseigner en 
vue de acquisition du programme 
peuvent me contacter. 


Jacques Rouilier - 3 rue des Pins - 
66140 Canet Plage 





J'aimerais contacter les abonnés ha- 
bitant ma région Aix les Bains - Sa- 
voie: je m'occupe d'un club de 
micro-informatique. 


Thierry Jan Speny - Cidex 50 le 
Morntcel - 73100 Aix les Bains 


Je recherche un club regroupant les 
possesseurs d'Apple /// intéressés par 
les applications professionnelles. En 
existe-t-il un ? Le cas échéant, les 
personnes intéressées peuvent me 
contacter en vue de la création d’un 
tel club. 


Claude Riou - Le Saint André - 48 
avenue de Lattre de Tassigny - 


83000 Toulon 


Je cherche des personnes ou des so- 


ciétés capables de relier des Apple 11 
à des ordinateurs CII-HB (61DPS et 
DPSd). 


F. Chastagner - 29 route de Gorges - 
44190 Ciisson 
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Club Orion 


Travaillant depuis juillet 83 en étroite 
collaboration avec le DataClub de 
Dinant (B), le club Orion continue 
ses activités. Il dispose à ce jour 
d'une programmathèque de plus de 
200 programmes sur disquette : as- 
tonomie, graphisme, jeux, radio 
amateurs, mathématiques, utilitaires, 
traitement de texte et de fichiers, … 
Ces programmes sont destinés à être 
échangés avec les amateurs où qu'ils 
sg trouvent. 


Une station radio-amateur, ONSUP 
{André Tarte) est à présent ouverte. 


Alexandre Duback 


Recueil No 1 de Pom's, Editions 
MEV et Editions du PSI - 200 pages, 
120 FF. 


Après tout, il faut peut-être aussi par- 
ler du recueil des quatre premiers 
numéros de Pom's. Ce livre, au for- 
mat de la revue, reprend la quasi-to- 
talité des articles des 4 premiers nu- 
méros de Pom's Le sommaire 
thématique publié dans le numéro 8 
de la revue vous donnera une idée 
précise de ce que vous pourrez y 
trouver. 


Les trois disquettes d'accompagne- 
ment coûtent 150 FF et peuvent être 
acquises séparément. Elles repren- 
nent, selon la bonne habitude de 
votre revue préférée, tous les pro- 
gammes publiés dans le recueil, 
agrémentés d'explications complé- 
mentaires et, à l’occasion, d’'exem- 
ples d'application. 


Comme nous ne pouvons régulière- 
ment republier les mêmes informa- 
tions, nous conseillons vivement aux 
nouveaux possesseurs d'Apple de ne 
pas perdre le bénéfice de la lecture 
du Recueil. Au moins 90% de ce qui 
y est écrit reste d'actualité. 


Guide de l'Apple, de Benoît de 
Meriy, Edimicro, 68 FF par tome. 
Trois tomes sont prévus: L’Apple 
Standard, Les Extensions et Les 
Appplications. 
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Carte EPROM/RAM/Timer/Port Parallèle 


Un de nos plus fidèles lecteurs et auteurs, Thierry Le Tallec, vient de mettre au point une carte périphérique pour 
Apple IL Cette carte, qui fonctionne indifféremment dans n'importe quel slot, comprend : 256 octets de mémoire 
RAM, 4 support 24 broches acceptant des mémoires vives 2K ou des mémoires mortes, EPROM 4K (moniteur 
étendu, un programme de copie), interruptions NMI, VIA 6522. 
D'aspect extérieur très soigné, cette carte n’a rien à envier aux cartes distribuées par les ”’grands” fabriquants. 

Nous avons aussi eu l’occasion de tester une ROM de Thierry Le Taïlec pour la création de caractères minuscules sur 
l'Apple Il, qui fonctionne parfaitement bien. 


Pour tous renseignements, contacter Thierry Le Tallec - 69, rue Sauveur Tobelem - 13007 Marseille. 


Des échanges avec le Canada ont 
déjà eu lieu via les O.C. Enfin, le 
club est en mesure de réaliser lu- 
même les copies de programmes 
pour ses correspondants. 


Contacter Thierry Lombry - Club 
Orion - Tienne aux Pierres 94 - B- 
5150 Wepion - Belgique. 


Club Ma Pomme 


Réunion le 21 septembre : stockage 
de masse pour Apple Il et III ; les dis- 


ques durs, les cartouches, les sauve- 
gardes, les techniques d’avenir. Réu- 
nion à 19 heures au 110, avenue du 
Général Leclerc, 75014 Paris. 


Ma Pomme - 6, rue Jaunière, 75016 
Paris. 


Informatique - Architecture 


Journées d'informations pour les ar- 
chitectes : 28 octobre, 25 novembre 
et 16 décembre. Adresse : 110, ave- 
nue du Général Leclerc, 75014 
Paris. 


Bibliographie 


À ce jour, je n’ai reçu que les deux 
premiers tomes et limiterai donc mon 
analyse à ceux-ci Ces deux livres 
possèdent une présentation agréable. 
Contrairement à ce que disent cer- 
tains revendeurs, ces ouvrages ne 
s'adressent pas aux débutants. Ce 
sont des ouvrages de référence, avec 
en supplément quelques exemples 
de programmes. 


Le tome I (168 pages) couvre à peu 
près les mêmes sujets que ”’Clefs 
pour l'Apple Il” analysé dans le nu- 
méro 8 de Pom'’s. Sur ce plan. le 
tome | est moins exhaustif, et il y est 
plus difficile de retrouver une infor- 
mation donnée. En compensation, il 
a l'avantage de traiter de l'Apple //e, 
ce que ne fait pas l'ouvrage de Ni- 
cole Bréaud-Pouliquen, que je pré- 
fère cependant à celui de B. de 
Merly. 


Le tome il (200 pages), Les Exten- 
sions, est en fait un manuel du DOS 
3.3 pour ses 72 premières pages, du 
Pascal UCSD pour 63 pages et de la 
softcard Z80 pour 48 pages. Les 13 
dernières pages parlent de cartes 
d'extension. 


En conclusion, je trouve ces ouvra- 
ges bien faits, mais un peu à cheval 
entre l'objectif “livre de référence” et 
l'objectif pédagogique. Ce sont des 
ouvrages à bien feuilleter avant de 


Jrhsès 


décider s'ils correspondent efféctive- 
ment à ce que l’on cherche. 


Assembly Lines : Apple Il, manuel 
de programmation du 6502, de Ro- 
bert Wagner, aux IS Editions - 237 
pages, 120 FF. 


li s’agit là de la traduction en français 
du célèbre ouvrage de Robert Wa- 
gner publié par Softalk. La présenta- 
tion aurait été plus agréable si les 
textes avaient été sortis sur une im- 
primante à marguerite au lieu d’une 
Epson FX80 (ainsi, les accents cir- 
confexes et trémas sont ajoutés à la 
main, quand ils ne sont pas pure- 
ment et simplement oubliés ...). 
L’impression de bricolage augmente 
quand je constate, sur mon exem- 
plaire, que les 4 pages d'introduction 
ont été assemblées entre la page 4 et 
la page 5 ! On trouve sans difficulté 
des phrases telles que : “Les chiffres 
sont 100 bien sur.” (sic) parvenant à 
cumuler en peu de mots du mauvais 
français, de la mauvaise ponctuation 
et du mauvais orthographe. 


Sur le fond, il suffit de rappeler que 
l'ouvrage de Wagner est considéré 
comme une référence aux Etats-Unis. 
Assembly Lines est un excellent ou- 
vrage pour lequel je regrette que 
l'éditeur ne se soit pas offert les ser- 
vices d'un meilleur traducteur et n'ait 
pas investi assez pour parvenir à une 
présentation plus agréable. 
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Bon de commande j 
à retourner sous pli affranchi 

aux Éditions MEV 

49, rue Lamartine 

78000 Versailles 





mettez 
de la couleur 
dans votre vie 





D'ISSSIIIIIIIIS, 


# Ota 
7 0 F ttc — 


Ci-joint mon règlement 













poms 


e la disquette HAIFA Source | | au prix de 55 F la disquette (cf. Pom’s n° 5) 
e le logiciel H-BASIC [_] au prix de 150 F (cf. Pom’s n° 8) 


® recueil n° 1 de Pom’s (n° 1 à 4) 

[_] avec ses 3 disquettes au prix de 270 F 
[_] sans disquette au prix de 120 F 
{[_] les 3 disquettes seules au prix de 150 F 


Je désire recevoir : 


e les numéros de la revue Pom’s [14 []5 []6 []7 []8 
au prix de 35 F le numéro 





e le numéro 9 de Pom’s au prix de 40 F 


e les disquettes d'accompagnement des numéros 
C1 02 [3 En Ss os A TEE 
au prix de 55 F par disquette 
Je désire m’abonner pour 4 numéros à partir du n°... 


[_] sans disquette au prix de 135 F 
[_] avec disquettes au prix de 325 F 














TOTAL : 
Envoyez ce bon de commande et votre règlement à : 
Éditions MEV - 49, rue Lamartine - 78000 Versailles 
Nom 


Adresse 


Ces tarifs comprennent l'envoi postal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 





Pour envoi par avion : nous consulter 








Une sélection mondiale de 392 programmes 
| pour APPLE - ATARI - IBM - CBM -TRS - Sharp 
PSON - Sinclair ZX 81 et Spectrum ue, 
ORIC 1 - Victor Lambdo - se" 





En raison des fluctuations monétaires, ces prix sont susceptibles d'être modifiés sans préavis. Nous consulter pour confirmation 


JCR, DES MICRO-ORDINATEURS 
PROFESSIONNEL ET GRAND PUBLIC. 





Sarpie star 





APPLE NE 


Entièrement compatible avec l'Apple II 
il possède un clavier étendu Azerty/ 
Qwerty et une mémoire de 64K oct. 
d'origine. 

Béjàx de nombreux logiciels et exten- 
sions disponibles sur ce nouvel ordi- 
nateutr. 


APPLE III 


L'outil professionnei 
126 

incc® 
intertè. 
possibK. 
Profilé. E 
antirefle’ 


È fllence. 





58, rue Notre-Dame-de-Lorette 


Cartes pour Apple Îl : 





U-RAMMIGK mamans 890 Fr 
U-TIM carte horloge........ 1090 F 
U-TERM carte 80 col........ 1490F 
U-Z88 carte CP/M ......... 1150F 
CP/Mpour U-280 sessassisss 750 F 
Microbuffer EPSON 16 K....2450F 
Microbulfer ext 64 K....... 3300F 
Clevier numérique ......... QE = 


Carte chat Mauve ......... 400 

Carte EVE pour Apple I E : 900 - 
Carte80col. TEXTAIIE ... 990F 
Carte 80 col +64KAÏIE 2300F 


Poignées de contréle....... 185 F 
TAYSRORS eds en 380 F 
Catte Superterm 80 col. ....2590F 
Ventilateur Super Fan ...... 850 F 
Carte mémoire 64 K........ 2590F 
Carte mémoire 128 K ...... 3950F 
Produits consommables : 

Disq. SF/DD 3M les 10 ..... 210F 
Disq. DD/DD 3M les 10..... 452F 
K 7 vierges les 10.......... 70F 
Papier listing 80 col. ....... 290Fr 
Papier listing 132 col. ...... 350 F 





VISICORP 


Une série de logiciels d'aiée à la déci- 
sion : Visicalc -Visiplot- Visidex - Visi- 
file. 


ORIC 1! 


Un ordinateur pour tous de 16 & 48 K 
ect. PAM. 

16 couleurs en graphisme haute résolu- 
tion. 

Synthétiseur de son et interface paral- 
lèle incorporés d'origine. 


48 K + manuel français 
et cordon Peritel. Es | 





— Catalogue gratuit sur demande — Crédit 4-36 mois — Leasing 36-48 mois — détaxe à l'exportation. 


59, rue du Docteur Escat 


313, rue Garibaldi 


75009 PARIS 
Tél. : (1) 282.19.80 - Télex : 290350 F 


13006 MARSEILLE 
Tél. : (91) 37.62.33 


69006 LYON 
Tél. : (7) 861.16.39 
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